AD-A08H  696 
UNCLASSIFIED 


BATTELLE  COLUMBUS  LABS  OHIO  TACTICAL  TECHNOLOGY  CENTER  F/G  9. 
A  OUAL1TY  CONTROL  DATA  MANAGEMENT  SYSTEM. CU) 

FEB  78  M  B  NEHER.  R  E  HEFFELFINGER  DAAK40-73-C-0192 

0ATT-CDIR-1-2  DRXTH  -TD-CR-80069  NL 


NHCROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURtAU  OF  STANDARDS- 1%3-A 


JfeL 


PICATIOM  OF  THIS  PAGE  ( When  Data  EntarMQ 


REPORT  DOCUMENTATION  PAGE 


Unclassified 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


3.  RECIPIENT’S  CAT ALO 


4.  TITLE  (and  i 


A  Quality  Control  Data  Management  System 


7.  AUTHORS) 


S.  TYPE  OF  REPORT  A  PERIOD  COVERED 

Final  June  77-  Feb  78 


Wmwmg 


RG.  REPORT  NUMBER 


ACT  OR  GRANT  NUMBERf*) 


j^-73-C-^] 


PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

Battelle  Columbus  Laboratories 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  A  WORK  UNIT  NUMBERS 


505  King  Avenue 
W  Columbus,  OH  43201 


822896. R 


CONTROLLING  OFFICE  NAME  AND  ADDRESS 


US  Army  Toxic  and  Hazardous  Materials  Agency  f  J  J 
Aberdeen  Proving  Ground,  Maryland  21010 


IS.  SECURITY  CLASS,  (ol  this  raportj 


Unclassified 


ISa.  DECLASSIFICATION/DOWNGRADING 
SCHEDULE 


S.  DISTRIBUTION  STATEMENT  (of  thim  Report) 

leared  for  public  release:  distribution  unlimited 


19.  KEY  WORDS  (Ccntinum  on  tormrmm  a  l  dm  It  nmcmaamry  and  Identity  by  block  ntxmbar) 

Laboratory  Quality  Control 

Data  THIS  D0CUNEEN1 

Installation  Restoration  TK3  COPY  TURN 


rns  HMM  IS  BH 

»  »«  ’2SSSS.  BM  ' 


Installation  Restoration  th2  COPY  FURNISHED  TO  ^ 

SenncMn  os  »m»  W  *» 

RKPRODUCI  LEGIBLY  «  - 


20.  ABSTRACT  fCsofteia  an  to raraa  aM>  If  nacaaaatr  aM  tdmutfr  b y  block  number) 

^A  laboratory  quality  control  system  has  been  programmed  for  the  Hewlett- 
Packard  3384  Computer  used  in  Installation  Restoration  analytical  chemistry 
laboratories .  -*c_ 


f£L2JDD  ,  jS2ts  1473  COITION  OF  *  NOV  SS  IS  OBSOLETE 


SECURITY  CL  ASSTFICATioN  OFtNIS  PAGE  ( 


DISCLAIMER  NOTICE 


\ 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DTIC  CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


Report  CD1R  1-2 


A  QUALITY  CONTROL  DATA  MANAGEMENT  SYSTEM 


M,  B.  Neher  and  R,  E.  Heffelfinger 
Battelle 

Columbus  Laboratories  / 
Tactical  Technology  Center 
505  King  Avenue 
Columbus,  Ohio  43201 


28  February  1978 
Working  Report 


Sponsored  by 

Program  Manager,  Chemical  Demilitarization 
and  Installation  Restoration 
Aberdeen  Proving  Ground,  Maryland  21010 
MIPR  Nos.  7.70023,  7.6P510,  and  7.70047 


80  5  22  0  60 

U.  S.  ARMY  MISSSILE  RESEARCH  &  DEVELOPMENT  COMMAND 
Redstone  Arsenal,  Alabama  35809 


PREFACE 


This  research  was  supported  by  the  Program  Manager,  Chemical  Demili¬ 
tarization  and  Installation  Restoration,  Aberdeen  Proving  Ground,  Maryland, 
and  was  monitored  by  the  U.  S.  Army  Missile  Research  and  Development  Command 
under  Contract  No.  DAAK40-73-C-0142  sponsored  by  the  Defense  Advanced  Research 
Projects  Agency. 


DISCLAIMER 


The  views  and  conclusions  contained  in  this  document  arc  those  of  the 
author's  and  should  not  necessai'ilu  be  interpreted  as  representing  the  official 
policies ,  either  expressed  or  implied ,  of  the  Program  Manager,  Chemical  Demili¬ 
tarization  and  Installation  Restoration ,  Aberdeen  Proving  Ground,  Maryland,  or 
of  the  U.  S.  Government. 


TABLE  OF  CONTENTS 


Paf,e 

INTRODUCTION 

SUMMARY .  1 

DATA  MANAGEMENT  SYSTEM  ORGANIZATION .  1 

System  Concept . 1 

Programs .  3 

Sample  Entry  Programs . 3 

Data  Entry  Programs . '  .  .  5 

Start-Up  Programs .  7 

Maintenance  and  Utility  Programs  .  8 

Data  Files . . . .  10 

Sample  Files  .  .....  ll 

Temporary  Files . 13 

Sample  Status  Files . 

Quality  Control  Data  Files  .  15 

Parameter  Files . 16 

OPERATION  OF  SYSTEM . 18 

Initial  Start-Up  Procedure . 18 

Normal  System  Operation  .  .  .  20 

Sample  Login . 20 

Laboratory  Data  Input . 20 

Q.C.  Operations . 21 

DISCUSSION  AND  FUTURE  WORK . 21 

Standards  vs.  Spikes.  .....  .  22 


•  • 
tl 


1 

TABLE  OF  CONTENTS 
(Continued) 


Alteration  of  Data  Format . . . 22 

Additional  Programs  .  22 


APPENDIX  A 

USE  OF  PROGRAMS . A-l 

APPENDIX  B 

PROGRAM  LISTINGS  .  B-l 

APPENDIX  C 

LOGIC  FLOWCHARTS  FOR  MAJOR  PROGRAMS . C-l 


!• 


i 


•  •  • 
ttt 


A  QUALITY  CONTROL  DATA  MANAGEMENT  SYSTEM 
by 

M.  B.  Neher  and  R.  E.  Heffelfinger 


SUMMARY 

A  data  management  system  has  been  developed  for  the  HP  3354 
data  system  to  support  a  quality  control  program.  This  system  assigns 
laboratory  numbers  to  incoming  samples  and  keeps  track  of  the  status  of 
each  sample  as  results  are  entered  by  the  various  analysts.  It  also 
assigns  quality  control  sample  designators  (blanks,  duplicates,  and 
standards).  These  data  from  the  standard  samples  are  used  to  calculate 
precision,  accuracy,  and  detection  limit.  Blanks,  duplicates,  and 
standards  are  used  to  keep  a  cumulative  sum  (CuSum)  file  for  both  precision 
(duplicates),  and  apcuracy  (blanks  and  standards).  The  CuSum  files  are 
used  to  determine  whether  or  not  an  analysis  is  "in  control". 

When  samples  have  been  completed,  the  data  will  be  transmitted 
to  Edgewood  Arsenal  for  permanent  storage. 

DATA  MANAGEMENT  SYSTEM  ORGANIZATION 

This  system  consists  of  several  sets  of  programs  which  access 
and  manipulate  data  using  several  sets  of  data  files.  These  programs 
and  data  files  are  described  in  this  section. 


System  Concept 


This  system  is  designed  to  be  used  on  a  HP  3354  GC  Data  System, 
operating  in  terminal  mode  Basic.  Each  sample  is  catalogued  as  separate 
files  in  the  systems  directory,  with  the  required  sample  identification 
data  in  a  header  record  and  each  analyte  in  a  separate  logical  record. 

Both  user  samples  and  Q.C.  samples  are  catalogued,  but  under  different 
formats.  Q.C.  samples  (duplicates,  blanks,  and  standards)  are  employed 
to  determine  the  precision,  accuracy,  and  detection  limit  for  each  analyte 
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in  each  sample  type.  The  detection  limit  is  determined  by  the  method  of 
(a) 

Hubeaux  and  Voss  .  Data  for  standards  are  recorded  in  a  statistical 
data  base  file,  which  contains  partial  sums  for  each  concentration.  This 
data  allows  calculation  of  the  detection  limit,  accuracy  and  precision 
as  a  function  of  concentration  and  variance  for  both  precision  and  accuracy. 
The  data  base  is  updated  with  each  set  of  standards,  applying  a  weighing 
factor  to  the  data  already  in  the  data  base. 

The  variance  determined  from  this  data  base  is  used  to  set  up 
cumulative  sum  data  files. All  data  needed  to  evaluate  the  performance 
of  the  system  are  contained  in  the  statistical  data  base  and  cumulative 
sum  data  files.  As  samples  are  logged  into  the  system,  blank,  duplicate, 
and  standard  samples  are  specified  by  the  system  based  on  the  number  of 
samples.  The  order  is  determined  by  a  random  number  system.  Basic  does 
not  run  creation  of  files  from  within  a  program.  Hence,  samples  are 
entered  into  temporary  files  and  then  written  into  permanent  files  after 
the  operator  has  created  the  needed  files.  Analysts  interact  with  the 
system  in  two  ways,  (1)  to  notify  the  system  that  a  given  analysis  is 
being  started,  and  (2)  to  enter  the  results  of  the  analysis. 

The  system  maintains  a  cross  reference  file  which  contains  the 
Users  Sample  Number  and  the  Laboratory  Number  which  was  assigned  to  the 
sample.  The  cross  reference  file  can  be  queried  to  determine  the  laboratory 
number  for  a  sample,  and  the  status  file  is  then  queried  to  determine  how 
many  analyses  remain  on  the  sample. 

When  an  analysis  is  found  to  be  out  of  control  (or  approaching 
the  out-of-control  point),  the  cusum  files  can  be  plotted  on  one  of  the 
system  terminals  to  determine  what  mode  of  failure  has  occurred.  Utility 
programs  are  provided  for  restarting  when  such  failures  occur. 


(a) 

Hubaux,  A.,  and  Voss,  G. ,  "Precision  and  Detection  Limits  for  Linear 
Calibration  Curves",  Anal.  Chem. ,  V2,  849  (1967). 

^Anon,  "Laboratory  Quality  Control  Manual",  Federal  Water  Pollution  Con¬ 
trol  Administration,  Robert  S.  Kerr  Water  Research  Center  (1969). 
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Programs 


The  programs  used  in  the  Q.C.  Data  Management  System  can  be 
grouped  together  conveniently  into  several  categories:  sample  entry, 
data  entry,  initial  start-up  and  utility  programs.  These  groupings  are 
discussed  in  the  following  sections. 

Sample  Entry  Program 

Samples  are  logged  into  the  system  by  this  program,  which 
consists  of  five  sub-programs.  Four  of  these  chain  together  and  produce 
an  intermediate  file  of  data  for  use  by  the  fifth,  and  a  list  of  files  to 
be  created  by  the  operator,  along  with  the  identification  of  each  file, 
I.e.,  users  sample  number,  levels  and  identification  of  QC  samples  (i.e., 
duplicates,  standards,  blanks,  and  spikes).  The  last  program  is  called 
when  these  samples  are  ready  to  be  put  in  the  process  stream,  and  enters 
them  into  the  system. 

These  sub-programs  and  their  functions  are  as  follows: 

ENTERS:  SV  -  Dialogue  to  enter  and  set  up  parameters  for  samples. 

Sets  up  random  sequences  for  grouped  samples.  File 
size  limits  the  sequence  length  to  ^50, .so  the  maximum 
group  size  is  25  (tentatively).  For  non-groupcd  samples, 
the  maximum  group  size  of  25  is  used  and  repeated  as  needed, 
selecting  a  new  random  sequence  each  time.  It  chains  to 
ENTRS2:SV  for  sample  information  input.  If  the  sample  is 
a  "spectral"  (i.e.,  non-standard)  sample,  it  chains  to 
ENTRSP: SV, 


ENTRSP:SV  -  Special  samples  are  handled  by  this  sub-program.  A 

temporary  file  of  information  for  the  last  segment  is 
set  up  (SPCTEM:DA)  containing  the  sample  identification 
and  analyses  for  each  sample.  (Not  yet  implemented.) 

ENTRS2:SV  -  Accepts  sample  information  for  regular  samples  and  sets 
up  temporary  file  of  information  (TEMFILrDA)  which  con¬ 
tains  sample  identification,  type  of  analysis,  and 
specification  of  Q.C.  samples.  This  sub-program  also 
prepares  a  list  as  the  terminal  of  Lab  Sample  Numbers, 
corresponding  User  Sample  Numbers  and  file  lengths  required. 
If  a  Q.C.  sample  is  required,  the  concentrations  and  type 
of  Q.C.  sample  are  printed  out  rather  than  the  User  Sample 
Numbers.. 

FILWRT:SV  -  This  program  is  run  after  the  samples  have  been  prepared 
for  analysis  (i.e.,  Lab  Numbers  put  on  bottles  and  Q.C. 
samples  prepared).  It  puts  entries  in  the  status  file 
(STATUS: DA)  and  the  cross  reference  file  (CREFT:DA). 

Variables  are  communicated  between  segments  through  and  retained  during 

chaining  by  common  arrays  G,  B,  F,  P,  C,  and  L. 

B  -  contains  the  sequence  identifiers  set  up  by  ENTRS1:SV. 

G  -  contains  the  parameters  passed  between  sub-programs: 

G(l)  =  Group  size  (samples,  excluding  Q.C.) 

G(2)  =  Identifies  group  type:  -1  =  ungrouped  sample 

0  =  new  group 
1  =  grouped  sample 

G(3'  =  Sample  type  (read  from  QCTIME:DA) 

G(4)  =  Group  type  (read  from  QCTIME:DA)  (o  =  unset) 

G(5)  =  Number  of  user  samples  remaining  in  sequence 
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G(6)  =  Pointer  to  position  in  sequence 
G(7)  =  Next  standard  concentration 
G(8)  =  Last  location  in  present  sequence. 

F  -  contains  current  sample  and  last  started  sample. 

P  -  contians  pointers  into  TEMFIL:DA  or  SPCTEM:DA. 

C  -  contains  prespecified  standards  ratios. 

L  -  contains  record  length  information  read  from  METHOD:DA. 


Data  Entry  Program 


This  program  is  the  program  by  which  analysis  data  is  entered 
into  the  system.  Two  entry  modes  are  provided,  normal  entry  (at  a  ter¬ 
minal)  for  systems  which  are  not  automated,  and  automatic  entry  for 
instruments  (currently  GC's  only)  which  are  automated  and  produce  a 
computer  file  containing  data.  It  consists  of  form  sub-programs  which 
chain  together. 

These  sub-programs  and  their  functions  are  as  follows: 

ENTERDrSV  Dialogue  enter  sample  number,  compound  name,  date, 
analysis  method,  analysts  initials,  and  instrument 
number.  For  Q.C.  samples,  it  chains  to  ENTRD2:SV. 
Replicates  are  handled  by  ENTRS1.  For  user  samples, 
it  checks  the  Cusum  files  for  accuracy  and  precision. 

If  the  system  is  "out  of  control",  a  message  is  printed 
and  the  data  is  not  entered  in  the  file.  •  If  the  system 
is  in  control,  but  approaching  the  "out  of  control" 
condition,  the  data  is  entered  in  the  file  and  a 
warning  message  is  printed  at  the  terminal.  ENTERD 
chains  to  ENTRD4  for  the  actual  file  entry  and 
STATUS  file  updates. 


ENTRD1: SV  This  sub-program  handles  duplicates.  The  first  of  a  pair 
of  duplicates  is  a  user  sample.  Data  are  entered  in  this 
file  in  regular  format,  and  also  in  the  duplicate  (Q.C.) 
file  in  the  "expected"  value  location.  It  chains  to  ENTRD2:SV. 
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F.NTRD2  -  This  sub-program  handles  data  for  Q.C.  samples  (duplicates, 
standards  or  spikes,  and  blanks).  Data  for  the  duplicates 
are  used  to  update  the  precision  CuSum  file.  Standards, 
spikes,  and  blanks  data  are  used  to  update  the  accuracy 
CuSum  file.  The  standard  or  spike  data  are  stored  until 
a  complete  set  has  been  accumulated.  At  this  time,  it  chains 
to  ENTRD3: SV. 


ENTRD3  -  This  sub-program  uses  data  stored  in  temporary  locations 
to  update  the  data  base  and  calculate  new  precision, 
accuracy  and  detection  limit  data.  These  new  data  are 
written  back  on  this  file  for  use  by  ENTRD1. 

ENTRD4  -  This  sub-program  uses  data  packed  by  ENTRD1  to  update  the 
file  header,  and  then  update  the  status  file. 


Common  variables  for  communicating  between  ENTERD  programs. 


COM 


H$ (28) 
1-6 
7-10 
11-16 


Sample  file  header 
Sample  Number 
Sample  Type 
User  Sample  Number 
11-15  are  blank  if  Q.C. 
16  =  index  to  std  cone. 


(1=1/2X,  2=X,  3=2X,  4=5X,  5=10X,  6=20X,  7=50X) 

17-21  Date  Submitted 
22-23  File 

24  Priority 

25  Replicate  Sequence* 

1  =  first 

2  *>  second,  etc. 

26  No.  Replicates* 

0  =  single  sample 

1  ■  duplicates 

2  -  triplicates,  etc. 

*Initial  system  is  restricted  to  duplicates,  of  which  the  second  is  a  Q.C. 
sample. 


i 

i 


-I 
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27,28  Status 

0  =  not  started 

>0  =  number  analyses  remaining 
-1  =  done 

(if  applicable,  -2  =  all  replicates  done) 
N$(9)  Data  File  Name 
V$(20)  Analysis  Data  String 

1-5  Analyte  Name 
6-10  Date  Completed 
11,12  Analysis  Method 
13,14  Instrument  Number 
15-17  Analysts  Initials 
18-20  Measurement  Units 
P(6)  Numeric  Variables 

1  Analysis  Type 

2  Sample  File  Record  Number 

3  Address  of  current  string  in  record 

4  Replicate  Identifier 

5  Analysis  Result 

6  Analysis  Sequence  Number  in  Methods  File 

7  Number  of  Results  packed  in  B  Array 

A(2)  Numeric  Equivalent  of  Sample  Number 

Initial  Start-Up  Programs 

U STATS: SV 


This  program  accepts  data  from  analysis  of  standards,  without 
requiring  that  the  standards  be  logged  into  the  system  under  the  normal 
laboratory  number  system  (i.e.,  by  use  of  the  sample  log  in  program). 

It  is  to  be  used  only  for  initial  start  up,  or  to  rebuild  the  data  base 


T’*  r**  w*  T J  J 
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after  a  method  goes  out  of  control.  It  accepts  data  in  sets  run  at  the 

standard  concentrations  (.5,  1,  2,  5,  10,  20,  50  X  detection  limit)  and 

2  2 

stores  it  in  the  data  base  as  sums  at  each  concentration,  EX,  EX  ,  EY,  EY  , 
2 

EX*Y,  EAY  and  E(AY)  and  also  stores  the  number  of  sets  of  data,  a 
minimum  of  4  sets  of  data.  The  detection  limit  can  be  calculated,  using 
the  method  of  Hubeaux  and  Voss.  For  this  calculation,  the  program  chains 
to  HUBV0S:SV.  The  accuracy  and  precision  are  also  calculated,  and  the 
detection  limit  and  the  variances  and  coefficients  for  the  least  squares 
best  fit  line  for  precision  and  accuracy  are  then  added  to  the  data  base. 

HUBVOS: SV 


This  sub-program  is  used  for  the  statistical  calculations  of 
detection  limit,  precision  and  accuracy. 

FXCSUM: SV 


Once  the  data  base  has  been  built  for  and  analyzed,  this  program  is 
run  to  set  up  the  cusum  file  for  the  method.  Once  the  cusum  file  has  been 
set  up,  it  will  automatically  be  updated  as  data  are  entered  into  the  system 
through  ENTERD.  Hence,  as  with  USTATS,  it's  only  used  for  initial  creation 
of  the  cusum  files  or  to  rebuild  a  file  when  a  method  goes  out  of  control. 

Maintenance  and  Utility  Programs 

This  category  includes  those  programs  which  are  used  to  examine  the 
status  of  the  system. 

CREF.-SV 


This  program  is  used  to  examine  the  cross  reference  table  to  determine 
the  Laboratory  Number  corresponding  to  a  given  User  Number,  to  look  up  that 
Number  in  the  Status  Table,  and  report  on  its  status.  If  requested,  it  will 
then  look  up  the  specific  Sample  File  and  report  the  status  of  each  analysis 
in  the  sample. 


CKCSUM: SV 


This  program  is  used  to  examine  the  cusum  file  when  a  method  is 
reported  out  of  control  or  heading  towards  being  out  of  control.  It  puts 
a  rough  plot  on  the  system  device  (TTY  or  CRT)  or  alternately,  can  send  the 
data  to  a  remote  computer  (e.g.,  Tektronix  4051)  for  output  on  any  desired 
output  medium. 

WSTATS-.SV  \ 

-This  program  is  used  for  initialization  of  the  Status  File,  STATUS'.DA. 
It  enters  the  prefix  for  the  Laboratory  Number  (specified  by  the  operator) 
and  sets  the  value  of  the  laboraotry  to  00001,  or  any  other  value  entered  by 
the  operator.  It  is  also  used  to  change  the  prefix  designation. 

WMETHD : SV 


This  program  is  used  to  set  up  the  file  of  methods  information  used 
by  the  various  programs  in  the  system,  and  to  rewrite  the  Method  File  as 
changes  become  needed. 

WTMFIL: SV 


This  program  is  used  to  initialize  the  temporary  files  for  ENTERS 
and  FILWRT.  It  will  be  used  only  to  reinitialize  these  temporary  files  in 
the  event  of  an  unexpected  incident  preventing  their  normal  reinitialization 
by  the  system  programs. 

WQCTIM: SV 


This  program  is  used  to  initialize  the  Q.C.  time  file,  and  as  with 
WTMFIL: SV,  should  not  be  needed  again  unless  an  unexpected  malfunction  occurs. 


GRPSZE: SV 


This  program  is  used  to  create  the  Group  Size  Table.  This  table 
should  never  be  altered  by  the  system.  However,  it  is  expected  that  changes 
in  the  group  sizes  will  be  required  as  data  are  acquired  in  the  system. 

TAB90T: SV 

This  program  is  used  to  write  out  the  T  Table  File  for  the  statistical 
program  portion  of  USTATSiSV  and  ENTERD:SV.  It  should  not  be  needed  again 
barring  a  catastrophic  system  failure. 

CRFLST 

This  program  is  used  to  initialize  the  cross  reference  table,  CREFT:DA. 
If  you  run  a  cross  reference  file  which  has  been  already  initialized,  it  will 
list  the  contents  of  the  file.  (It  is  not  for  use  on  any  other  file  and  would 
probably  give  an  error  message.) 

FILCHK 

This  program  was  written  for  debugging  purposes,  and  is  included  for 
help  if  problems  arise.  It  is  for  use  only  on  sample  (user  or  Q.C.)  files 
and  simply  lists  the  header  and  each  analysis  block,  without  spacing  or 
decoding. 

Data  Files 

The  programs  described  above  access  and  manipulate  4  sets  of  data 

files: 

(1)  Sample  files  -  one  file  for  each  sample. 

(2)  Statistical  Data  Files  -  two  files  for  each  defined 
analysis  type.  One  file  contains  data  from  stan¬ 
dard  samples  for  calculation  of  the  precision, 
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accuracy,  and  detection  limit  for  each  analyte. 

The  second  file  keeps  the  cumulative  data  for  accur¬ 
acy  and  precision  of  each  analysis. 

(3)  Status  and  Cross  Reference  Files  -  The  Status  File 
has  an  entry  for  each  sample,  arranged ’in  numerical 
order.  The  Cross  Reference  File  contains  the  User 
Number  and  the  Laboratory  Number. 

(4)  Parameter  Files  -  These  files  contain  parameters  which 
are  used  by  the  various  programs  in  recording  and  manip¬ 
ulating  of  data  and  data  files. 


These  files  are  described  more  fully  in  the  following  section. 

Sample  Files  (ANNNNN.-DA) 


Header  (Real  and  Q.C.  Samples) 
Lab  No.  Dec.  Eq. 

Lab  Sample  No. 

Analysis  Type 
User  Sample  No. 

Julian  Date  Received 
File 

Priority 

Number  of  Replicates 
Replicate  Sequence  No. 
Status  Flag 


19  words 

Wd  1,  2,  3,  4 

(2  Data  words) 

Char.  1-6 

Char.  7-10 

Char.  11-16 

(Note  1) 

Char.  17-21 

Char.  22-23 

Char.  24 

Char.  25 

Char.  26 

(Note  2) 

Char.  27-28 

(Note  3) 

Each  analysis  for  real  samples 
Analysis  Name 
Julian  Analysis  Date 
Analysis  Method 
Measurement  Boolean 


(21  words  for  each  analyte) 
Char.  1-5 
Char.  6-10 
Char.  11,  12 
Char.  13,  14 
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Measurement  Mantissa 

Char.  15-20 

Measurement  Exponent 

Char.  21-23 

Measurement  Units 

Char.  24-26 

Accuracy 

Char.  27-30 

Precision 

Char.  31,  32 

Instrument  Number 

Char.  33,  34 

Analysts  Initials 

Char.  35-37 

Status  Flag 

Char.  38 

(Note  4) 

Analysis  Sequence  No. 

Char.  39,  40 

(Note  5) 

Sample  Files  (16  words  for 

each  analyte) 

Analysis  Name 

Char.  1-5 

Julian  Date 

Char.  6-10 

Method 

Char.  11,  12 

Instrument  No. 

Char.  13,  14 

Analyst  Initials 

Char.  15-17 

Status  Flag 

'Char.  18 

Expected  Value 

2  words  (1  data  word) 

Found  Value 

2  words  (1  data 

word) 

Analysis  Sequence  No. 

2  words  (1  data 

word) 

Note  1:  For  QC  Samples,  characters  1-5  are  blank 
Char.  6:  1  =  blank 

2-8  are  relative  levels  for  standards 
Note  2:  0  for  single  samples,  2  for  duplicates  (Q.C.) 

3-9  indicates  spikes. 

The  second  character  indicates  offset  from  first 
replicate  or  the  base  sample  for  the  spike. 

Note  3:  0  =  not  started 

-1  =  Done 

-2  =  All  replicates  done  (if  applicable) 

>0  =  No.  of  analyses  to  be  completed. 
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SPCTEM:DA  (6  blocks) 


Temporary  file  for  special  samples  (tentative  format). 


Length  of  entry 

1,  2 

(holds  number  of.anlayses) 

Lab  No.  (N$) 

1-6 

) 

User  No.  (U$) 

7-12 

V  10  words  as  in  TEMFIL:DA 

Date  (D$) 

13-17  ^ 

) 

Analysis  No.  1 

Use  sequence 

Analysis  No.  2 

numbers 

from 

etc . 

Methods 

File 

Sample  Status  Files 


STATUS: DA  Control  File 


Packed  decimal  equivalent  of  prefix  +  2  digits. 
3  low  digits  of  next  lab  number. 

Same  for  highest  lab  number  for 
which  analysis  has  been  started. 

Same  as  above 
for  lab  number. 

No.  of  samples  in  set 
set  to  0  when  done. 

Sample  type  initially, 
when  started: 

thousands  value  -  no.  analyses  started 
units  value  -  no.  analyses  finished 
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CREFT : DA  Cross  Reference  File 

1.  Users  Lab  No.  6  char. 

2.  Lab  No.  6  char. 


Repeated  for  each  sample. 


Quality  Control  Data  Files 


CUSUMN : DA  Cusum  File  (one  for  each  sample  type) 

Two  blocks  for  each  analysis,  first  block  Precision 

second  block  Accuracy 
Ordered  by  Sequence  No.  in  Methods  File 
Block  format: 

1  =  Status 

0-.5  =  In  control 
>.5  *  Warning 
£1  =  Out  of  control 

2,3,4  =  coefficients  of  equation  of  upper  and  lower 
limit  times 

5  =  number  of  points  in  file 
6-63  =  up  to  58  data  points. 


STATSN:DA  Statistics  Data  Base  (one  for  each  type  of  sample) 
One  block  for  each  analysis 
Block  format: 

1  =  concentration  of  IX  x  standard 

2  =  current  detection  limit 

3  =  number  of  data  sets  accumulated 

2 

4  =  S  for  precision 

5,6,7  =  coefficients  for  precision  line 
2 

8  =  S  for  accuracy 

9,10,11  =  coefficients  for  accuracy  line 

12-25  =  2  level  stack  of  results  for  each  level, 
waiting  for  a  complete  set  partial  sums 
for  each  level 


26-30  =»  1/2X  EX,  EY,  EX Y,  EX2,  EY2 


Bssmrnmarmr. 


16 


31-35 

= 

IX 

36-40 

= 

2X 

41-45 

= 

5X 

46-50 

= 

10X 

51-55 

= 

20X 

56-60 

= 

50X' 

61 

= 

ZY-Yj 

62 

= 

ECY-Yj) 

Parameter  Files 


METHOD; DA  Methods  File 

Record  1 

175  characters  -  Method  Names  (arranged  according  to 

RMA's  analysis  list 

24  characters  -  5  standard  and  SPEC  sample  names 
10  characters  -  5  standard  sample  type  abbreviations 
Record  2,3 

100  numbers  -  Sequential  analyses  for  analyses  in 
each  standard  sample  type 

10  numbers  -2x5  array,  start  and  size  of  string 
of  analysis  numbers  in  above  array 

Record  4 

35  numbers  -  Analyses  numbers  for  each  lab. 

6  numbers  -2x3  array,  start  and  size  of  string 
of  analysis  numbers  in  above  array 

GRSIZE:DA  Group  Sample  Size  Table 


Group  Sizes 
Loc 
Value 


1 

21 


2 

16 


3 

11 


4 

6 
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Blanks 


Loc 

6 

7 

8 

9 

10 

Value 

3 

2 

2 

1 

1 

Duplicates 

Loc 

i  (or  Replicates) 

11  12  13 

14 

15 

Value 

4 

3 

3 

2 

2 

Spikes 

Loc 

21 

22 

23 

24 

25 

Value 

7 

6 

5 

4 

3 

Standards 

Loc 

16  . 

17 

18 

19 

20 

Value 

7 

6 

5 

4 

3 

QCTIME:DA  Q.C.  Time  File  (one  record  for  each  sample  type) 
G(3)  1.  Sample  type 

G(4)  2.  Group  Flag  -1  =  Non-grouped  sample 

0  =  Initial  state 
N>0  =  Grouped  sample 
N  =  Set  in  group 

G(5)  3.  Number  of  user  samples  remaining  in 

group 

G(6)  4.  Pointer  to  position  in  sequence 

G(7)  5.  Next  standard  concentration 

G(8)  .6.  Last  location  in  present  sequence 

-63  sequence  elements  (up  to  57) 


OPERATION  OF  SYSTEM 


This  section  outlines  the  procedures  for  use  of  the  system,  and 
is  divided  into  sections  for  initial  start  up,  normal  operation,  system  status 
check,  and  G.C.  operation.  The  sub-section  illustrating  system  dialogue  is 
given  in  Appendix  C.  The  portion  output  by  the  system  is  underlined. 


Initial  Start-Up  Procedure 


This  section  describes  the  procedures  to  be  used ' in  starting  up 
the  system  at  first. 

•  Load  all  (or  at  least  start  up)  programs  and 
CSAVE  under  specified  name. 

•  Using  the  CREATE  command,  create  the  following 
utility  files: 

STATUS: DA  40  records  (for  600  files) 

CREPT: DA  40  records 

METHOD :DA  4  records 

QCTIMErDA  5  records 

GRSIZErDA  1  record 

TTAB90:DA  1  record 

TTABLE  3  records 

TEMFIL:DA  6  records 

SPCTEM: DA  6  records ^  . 

STATS1:DA  16  records 

STATS 2: DA  27  records 

STATS3:DA  27  records 

STATS4 : DA  9  records 


STATS5-.DA  21  records 

CUSUM1:DA  32  records ^ 


(a) 

The  size  of  STATUS: DA  and  CREFT:DA  can  be  chosen  any  desired  size.  40 
records  was  chosen  as  a  suggestion. 

^Not  implemented  on  initial  system. 

(c) 

Only  STATS3  and  4  and  CUSUM  3  and  4  are  needed  at  first,  as  the  method 
of  handling  biological,  soil,  and  sediment  samples  is  undecided. 
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WMTHOD: SV 
WTMFIL: SV 
WACT1M: SV 
GRPSIZ: SV 
CRFLST: SV 
FILCHK: SV 
VJSTATS:  SV 
WTABLE: SV 
WTAB90: SV 


CUSUM2 :DA 
CUSUM3 : DA 
CUSUM4 : DA 
CUSUM5:DA 


54  records 
54  records 
18  records 
42  records 


•  Run  set-up  programs. 

to  write  out  METHOD: DA 
to  write  out  TEMFIL:DA 
to  write  out  QCT1ME:DA 
to  write  out  GRS1ZE:DA 
to  initialize  CREFT:DA 
to  list  sample  files 
to  initialize  STATUS:DA 
to  write  out  TTABLE:DA 
to  write  out  TTAB90:DA 


•  Run  standards  on  all  analytes  (at  1/2,  1,  2, 
5,  10,  20,  and  50  times  detection  limit^a\ 
(Ideally  4  replicates  on  each  of  4  days.) 
Enter  data  into  the  system  using  USTATSrSV. 
(Can't  use  ENTERD  yet,  because  it  requires  a 
cusum  file.  At  least  4  replicates  must  be 
run  before  the  next  step  can  be  taken. 


•  Run  FXCSUM:SV.  This  takes  the  data  from  the 
statistical  data  base  and  creates  both  pre¬ 
cision  and  accuracy  cusum  files. 


Once  FXCSUM: SV  has  been  run  for  a  given  analysis  type,  the  system  is 
ready  for  normal  operation 


(a) 


A  preliminary  set  of  data  should  be  run  to  determine  the  approximate 
value  of  the  detection  limit,  unless  it  is  already  known. 
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Normal  System  Operation 


Once  the  system  has  been  started  by  the  above  procedure,  normal 
operation  involves  a  different  sequence  described  below. 

Sample  Login 

Samples  are  entered  into  the  system  by  use  of  ENTERS: SV. 

The  program  assigns  sequential  laboratory  numbers,  indicating  where  blanks, 
duplicates,  and  standards  occur.  It  also  choses  values  for  the  standards. 
When  all  samples  have  been  labled  with  the  designated  laboratory  number 
and  all  blanks,  duplicates,  and  standards  are  ready  for  analysis,  and  the 
indicated  files  have'  been  created,  the  program  FILWRT: SV  is  run.  This 
program  takes  the  information  stored  by  ENTERS :SV  and  writes  the  analysis 
information  into  the  files.  It  also  enters  the  sample  numbers  into  STATUS :DA 
and  CREFT:DA.  When  samples  are  ready  for  analysis,  the  program  ANALYZ:SV  is 
run.  This  program  checks  the  cusum  files  for  the  analysis.  If  the  analysis 
is  not  in  control,  the  program  prints  Q.C.  OUT-OF-CONTROL,  and  will  not 
accept  samples  for  that  analyte..  If  the  analysis  is  in  control,  it  sets 
the  status  flag  for  each  analysis  in  each  sample  to  "STARTED". 

Laboratory  Data  Input 

Data  are  entered  into  the  sample  files  by  use  of  the  program 
ENTERD:SV.  For  user  samples,  the  appropriate  CUSUM  file  is  queried  to 
ascertain  that  the  analysis  is  still  in  control,  and  if  so,  the  data  is 
enetered  into  the  file,  and  the  status  flag  for  that  analysis  in  that 
specific  sample  is  set  to  done.  If  the  analysis  lias  gone  out  of  control, 
the  data  is  rejected. 

For  Q.C.  samples,  the  appropriate  CUSUM  file  is  updated  and  a 
flag  set  to  indicate  status  of  the  system.  For  standards  or  spiked  data, 
the  statistical  data  base  is  updated,  and  when  one  complete  set  of  stan¬ 
dards  has  been  run,  the  precision,  accuracy,  and  detection  limit  are  re¬ 
evaluated.  If  the  system  is  approaching  the  out-of-control  point,  a  Q.C. 


WARNING  message  is  given.  If  it  is  out  of  control,  a  message,  "Q.C.  OUT- 
OF-CONTROL” is  given  and  no  further  analyses  can  be  started  or  data  entered 
into  sample  files. 

Q.C.  Operations 

When  an  analysis  is  flagged  as  out  of  control,  or  approaching 
the  out-of-control  point,  the  system  will  type  out  a  warning  message. 

At  this  time,  it  is  necessary  to  assess  the  situation.  The  program 

CKCSUM: SV  plots  the  CUSUM  file  data  on  one  of  the  system  terminals  for 
on-the-spot  diagnosis.  If  the  analysis  is  out  of  control,  a  new  statistical 
data  base  can  be  set  up  by  running  a  new  set  of  standards  as  was  done  to 
start  the  system. 


DISCUSSION  AND  FUTURE  WORK 


The  data  management  system  described  in  the  previous  sections 
(and  the  Appendices)  has  been  debugged  as  well  as  is  practical  in  without 
real  data.  The  system  has  been  installed  at  RMA,  and  is  currently  in  the 
process  of  acquiring  data  in  the  start-up  phase,  and  should  be  operational 
in  the  next  few  weeks. 

Actual  experience  with  the  system  is  essential  in  assessing  the 
results  and  determining  what  problems  exist.  It  is  a  virtual  certainty  that 
some  program  bugs  will  be  uncovered  in  the  early  weeks  of  operation.  How¬ 
ever,  these  are  areas  which  need  further  development  before  the  system  can 
be  considered  totally  operational.  In  addition,  changes  in  requirements  for 
the  system  have  been  made  that  have  not  been  put  into  effect  yet  because 
they  occurred  so  late  that  incorporation  in  the  initial  system  would  have 
delayed  it  unduly.  The  known  requirements  are  discussed  in  the  following 
paragraphs. 
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Standards  vs.  Spikes 

Working  spiked  samples  into  the  computerized  data  management 
system  is  more  difficult  than  for  standard  (known)  samples.  For  water 
samples,  standard  samples  are  workable.  However;  no  "standard"  soil  sedi¬ 
ment  of  biological  samples  are  available  so  that  only  real  spiked  samples 
seem  appropriate.  Accordingly,  it  was  decided  that  the  initial  system 
would  be  concerned  only  with  water  samples.  Tentative  provisions  have  been 
made  for  spiked  samples,  but  the  exact  means  of  implementation  has  not  yet 
been  decided  upon. 


Alteration  of  Data  Format 


When  the  system  was  being  designed,  the  header  block  for  the 
data  file  and  the  data  block  for  each  analyte  were  defined  to  be  compat¬ 
ible  with  Edgewood's  data  file  format.  Therefore,  analyte  names  were  al¬ 
lotted  5  characters,  the  mantisso  for  the  analysis  was  allotted  6  characters 
and  the  units  file  was  allotted  3  characters.  Similarly,  the  file  header 
was  provided  with  2  characters  for  the  data  called  "FILE",  2  characters  (BA, 
SO,  WA,  SE,  for  Biological  Assay,  SOil,  WAter,  or  SEdiment,  respectively). 

In  a  recent  visit  to  RMA  it  was  learned  that  these  requirements  have  been 
altered:  6  characters  for  analyte  name,  5  characters  for  analysis  mantisso, 

and  4  characters  for  units.  In  addition,  the  header  needs  an  additional 
field  "LOCATION  (or  WELL)  IDENTIFIER"  and  doesn’t  need  the  2  character 
"FILE".  These  changes  have  yet  to  be  worked  into  the  system. 

Additional  Programs 


All  of  the  originally  planned  programs  have  been  implemented  on 
the  system  with  the  exception  of  two  that  are  intimately  linked  with  the 
data  format.  These  are  the  program  to  transmit  data  to  the  Tektronic  4051 
for  conversfion  to  the  proper  format  for  the  Edgewood  file,  and  the  program 
to  list  all  samples  ready  for  analysis  in  individual  laboratories.  These 


remain  to  be  completed.  In  addition,  the  Methods  File  will  need  to  be  modi¬ 
fied  as  new  sample  types  are  defined,  even  for  RMA.  Installing  the  system  at 
other  labs  will  probably  mean  an  entirely  different  Methods  File.  Accordingly, 
an  EDITOR  to  modify  the  Methods  File  should  be  developed. 

The  conversion  to  the  new  data  format  will  require  about  1  man- 
week,  and  probably  1  man-week  for  debugging  all  the  changes  required.  The 
new  programs  probably  will  require  about  2  to  2-1/2  man-months  for  development 
and  debugging.  The  time  required  for  debugging  the  installed  system  is 
difficult  to  estimate,  but  could  involve  1  to  2  man-months, 
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USE  OF  PROGRAMS 
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USTATS :  *;'/  Program  to  Build  Statistics  Data  Base  for  Analytes 


This  program  starts  with  an  empty  data  base  file,  or  one  which 
has  become  suspect  or  worthless  (e.g.,  when  an  analysis  goes  out  of  con¬ 
trol).  It  requires  only  that  a  file  named  STATSn:DA  exist  on  the  system, 
(where  n  is  the  number  of  the  sample  types  currently  defined) . 


STATS  in  Pile  Length 


1  CPB  (comprehensive  pilot,  biological)  . 16  records 

2  CPS  (comprehensive  pilot,  soil)  27  records 

3  CPW  (comprehensive  pilot,  water)  27  records 

4  360  (360°  water)  9  records 

5  BSNF  (Basin  F)  21  records 

and  the  methods  file,  METH0D:DA,  which  contains  identification  data  for 
the  sample  and  analysis  type.  When  the  program  is  started,  it  first  checks 
for  the  availability  of  the  methods  file,  and  if  it  is  not  present,  it 
aborts  with  error  message  (1). 

(1)  METHOD: DA  NOT  AVAILABLE 

If  the  file  is  present,  the  program  prints  (2) 

(2)  ENTER  SAMPLE  TYPE 


In  response,  the  sample  type  is  entered. 

If  it  is  not  defined  in  the  methods  file,  error  message  (3)  is  printed, 

(3)  ILLEGAL  SAMPLE  TYPE 


and  the  program  waits  for  a  valid  type.  The  program  can  be  terminated  by 
hitting  the  space  bar  and  a  carriage  return.  When  an  acceptable  sample 
type  is  received,  the  program  then  looks  for  the  proper  STATSn'.DA  file. 

If  not  found,  it  issues  the  error  message  (4), 

(4)  STATSn: DA  NOT  AVAILABLE 

and  goes  back  to  the  request  for  a  sample  type,  (2).  If  the  stats  file  is 
found,  the  program  then  prints  (5) 

(5)  ENTER  ANALYSIS  NAME 


A- 2 


If  the  analysis  is  not  included  in  the  methods  file,  an  error  message 

(6)  is  printed, 

(6)  UNDEFINED  ANALYSIS  FOR  THIS  SAMPLE  TYPE 

and  the  prompt  (5)  is  repeated.  If  the  analysis  is  legal,  the  program 
then  prints  (7) . 

(7)  NEW  DATA  BASE? 

If  the  new  data  base  is  being  built  (whether  for  a  totally  new  file  or 
rebuilding  a  file  that  has  gone  bad,  a  YES  (or  Y)  response  will  cause  the 
system  to  write  -1  and  0  on  appropriate  portions  of  the  file,  and  to  issue 
the  prompt  (8) . 

(8)  ENTER  THE  IX  CONCENTRATION  LEVEL 

The  response  to  this  question  is  entered  into  the  file  and  thereafter, 
all  standards  are  expected  to  be  related  to  this  concentration. 

If  the  response  to  the  question  (7)  is  NO,  the  program  types  out  the  IX 
concentration  level,  and  the  status  of  the  system,  number  of  sets  of  data 
in  the  data  base  and  contents  of  this  temporary  register.  The  system  then 
types  (9). 

(9)  ENTER  TARGET  LEVELS 

The  response  must  be  1/2,  1,  2,  5,  10,  20,  or  50.  Any  other  response  will 
cause  an  error  message  (10)  to  be  output. 

(10)  ILLEGAL  TARGET  LEVEL 
ENTER  TARGET  LEVEL 

Only  two  values  can  be  present  for  each  level.  If  temporary  storage  is 
already  full,  the  error  message  (11)  will  be  output  and  the  system  will  go 
on  to  0. 

(11)  LEVEL  ALREADY  FULL 

After  a  satisfactory  target  level  has  been  entered,  the  system  will  print  (12). 

(12)  ENTER  ANALYSIS  RESULT 

Any  legal  number  will  be  accepted,  so  be  careful. 

If  an  erroneous  number  is  entered  and  a  carriage  return  is  given  before  the 
error  is  discovered,  it  can  be  corrected  at  any  later  time  by  entering  the 
complement  (negative  value)  of  the  number  in  a  later  step.  If  a  negative 
number  is  entered,  the  system  will  respond  (12a). 

(12a)  ENTER  REPLACEMENT  VALUE? 


If  the  erroneous  number  is  still  in  the  temporary  storage  register,  it  will 
simply  be  replaced  and  the  system  will  continue  at  (15).  If  the  value  is  not 
in  the  temporary  storage  register,  the  system  will  respond  (12b). 

(12b)  VALUE  NOT  IN  TEMPORARY  STORAGE 

DO  YOU  WANT  DATA  BASE  CORRECTION? 

A  YES  response  will  cause  the  system  to  correct  the  partial  sums  in  the  data 
base.  A  NO  response  will  cause  the  system  to  ignore  the  negative  input,  and 
in  either  case,  to  procede  on  to  (15). 

If  the  temporary  storage  levels  are  full,  the  system  will  type  (13). 

(13)  LEVEL  NOW  FULL 

After  each  data  point  is  entered,  the  system  checks  to  see  if  one  complete 
set  of  data  has  been  entered  into  temporary  storage.  If  so,  these  data  are 
written  to  the  permanent  data  base,  and  the  temporary  storage  registers  are 
again  made  available  for  use. 

In  any  event,  the  system  will  then  ask  (14). 

(14)  DO  YOU  WANT  STATISTICAL  CALCULATIONS? 

If  the  response  is  YES,  the  system  will  calculate  and  print  out  the  de¬ 
tection  limit  and  the  precision  and  accuracy  as  a  function  of  concentration. 
The  least  squares  line  for  the  latter  two  are  also  calculated.  The  detec¬ 
tion  limit,  the  variance  and  line  coefficients  for  precision  and  accuracy, 
the  updated  partial  sums  are  also  rewritten  in  the  statistical  file 
(STATSn:DA)  for  later  access  by  the  program.  Typical  dialogue  sequences 
are  shown  below. 

(15)  MORE  DATA? 

If  the  response  is  NO,  the  updated  data  are  written  into  the  system  file 
and  the  program  stops.  If  the  answer  is  YES,  the  system  asks  (16). 

(16)  SAME  ANALYSIS? 

If  the  response  is  YES,  the  program  goes  back  to  (9).  If  the  response  is 
NO,  it  updates  the  present  data  base,  then  starts  over  at  step  (2). 
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The  following  examples  of  output  dialogue  illustrate  the  operation  of 
USTATSrSV.  (System  dialogue  is  underlined.) 

The  first  example  shows  the  creation  of  a  new  data  base.  Some  steps  have 
been  omitted  for  brevity,  but  the  process  was  carried  far  enough  to  permit 
calculation  of  statistics.  (This  file  was  created  from  replicate  standards 
with  identified  analysis  results,  so  the  errors  should  all  be  zero.) 


.  >RUN 

ENTER  SAMPLE  TYJPE*  7  360 
pJTER  ANALYSIS  NAME; ? F 
NEW  DATA  BASE? ? Y 

f*  NTER  IX  CONCENTRATION  L£VELt?.S 
NTER  TARGET  LEVEL:  7.5 
ENTER  FOUND  VALUE 1  7 .25 
MORE  DATA  TO  ENTER?  , ? Y 
SAME  ANALYSIS?  ?Y 
ENTER  TARGET  LEVEL:  7 1 
ENTER  FOUND  VALUE*  7*5 
MORE  DATA  TO  ENTERGY 
SAME  ANALYSIS?  ?Y 
ENTER  TARGET  LEVEL*  J2 
ENTER  FOUND  VALUE*  ?1 
fioRE  DATA  TO  ENTER? ’?Y 

Same  analysis?  ?y 

ENTER  TARGET  LEVEL;  75 
ENTER  FOUND  VALUE*  72 . 5 
M ORE  DATA  TO  ENTER?  ? Y 
SAM E  ANALYSIS?  ? Y 


ENTER  TARGET  LEVEL t  7 20 
ENT £R  FOUND  VALUE:  ? 1 0 
MORE' DATA  TO  ENTER?  7  Y 
SAME  ANALYSIS?  ?Y 
ENTER  TARGET  LEVEL »  _?50 
ENTER  FOUND  VALUE >  725 

fep  YOU  WANT  STATISTICS  CALCULATED?  ?Y 

THE  VALUE  OF  T  IS  1.701 

THE  SLOPE  IS  1 

THE  INTERCEPT  IS  0 

THE  STANDARD  DEVIATION  IS  0 

THE  OVERALL  COEFFICIENT  OF  VARIATION!  1 S  0  X 
•  THE  DECISION  LIMIT  IS  0 
THE  DETECTION  LIMIT  IS  -1 
LEVEL  X  VARIATION 

^25  0 

.5  -0 


I 

2.5 

5 

TcT 

r25 

LEVEL  ' 

*.2.5 

,j5 

i. 

2.5 

5 

10 

25 


0" 

0 

I 

ACCURACY 

Si 

0 

0 

¥ 

0 

■jB 

..a 


MORE  DATA  TO  ENTER? ?N 


PASJ  CL-BEAPY 


The  second  example  shows  addition  of  data  to  an  existing  data  base.  In 
this  case,  the  analytical  results  were  allowed  to  vary  so  that  results  should 
not  be  zero. 


>RUN 

ENTER  SAMPLE  TYPE:  .*360 
ENTER  ANALYSIS  NAME:? CL 
NEW  DATA  BA5E??N 

3  SETS  OF  DATA  ARE  IN  THE  DATA  BASE. 
VHE  tX  TARGET  CONCENTRATION" I S  1  ’ 
TEMPORARY  STORAGE  STATUS* 

LEVEL  CONTENTS 


ENTER  TARGET  LEVEL*  ?  50 
ENTER  FOUND  VALUE*  ?5Q 

PO  YOU  WANT  STATISTICS  CALCULATED?  ? Y 
THE  VALUE  OF  T  IS  1*70! 

THE  SLOPE  IS  1 .07403 

THE  INTERCEPT  IS  3.65998E-02 

THE  STANDARD  DEVIATION  IS  1.79103 

THE  OVERALL  COEFFICIENT  OF  VARIATION  IS  13.1545  X 
THE  DECISION  LIMIT  IS  3.1682 
THE  DETECTION  LIMIT  IS  5.8643 


LEVEL. 

i5 _ 

!_ 

2. 

5 

T0 

93 

50 

tfVEL 
•  5 
!_ 

JL 

5_ 

10 

20 

50 


X  VARIATION 
8.22596 
8.22596 
1  1.0867 


9.57427 

9.57427 

9.57427 
X  ACCURACY 
1 0  ♦  5 

10.5 

[3775 

7.5 

7.5 

7.5 

7.5 


MORE  DATA  TO  ENTER? ?N 


BASIC  READY 


n— 1 


The  third  sample  also  shows  addition  to  an  existing  data  base,  and  also 
illustrates  the  use  of  a  negative  value  to  correct  an  erroneous  entry. 


ENTER  SAMPLE  TYPE*  7360 
ENTER  ANALYSIS  NAME*? CL 
NEW  DATA  BASE77N 

3  SETS  OF  DATA  ARE  IN  THE  .DATA  BASE* 
■  THE  IX  TARGET  CONCENTRATION  IS  \ 
TEMPORARY  STORAGE  STATUS: 

LEVEL  CONTENTS  * 

•  5  .5 

It, 

2~  2~ 

17  ~ 

ia 

,20 

.50 

J-INTER  TARGET  LEVEL*  7  5 
ENTER  FOUND  VALUE:  745 
MORE  DATA  TO  ENTER?  7Y 
SAME  ANALYSIS?  ?Y 
ENTER  TARGET  LEVEL*  710 

Enter  found  value*  710 

MORE  DATA  TO  ENTER?  ?Y 
^AME  ANALYSTS?  ?Y~- 
ENTER  TARGET  LEVEL*  7  5 
ENTER  FOUND  VALUE;  ?-A5 
ENTER  REPLACEMENT 'VALUE? 5 
MORE~DATA  TO  ENTER?  ?Y 
SAME  ANALYSIS?  ?Y 
jsNTER  TARGET  LEVEL:  720 
£NTER  FOUND  VALUE:  720 
MORE  DATA  TO  ENTER?  ?N 


FXCSUM:SV  Program  to  Setup  Cumulative  Sum  File 


This  program  takes  data  from  the  statistical  data  base  created  by 
USTATS:SV  and  builds  the  cumulative  sum  files  for  both  precision  and  accuracy 
It  requires  that  a  file,  CUSUMn:DA,  exist  on  the  system,  where  n  is  the 
sample  type.  These  files  require  no  initialization.  The  STATSn.‘DA  file, 
created  by  USTATS:SV,  and  the  Methods  File,  METHOD:DA,  are  also  required. 

n  Sample  Type  CUSUMn:DA  Length 


1 

CPB 

32 

2 

CPS 

54 

3 

CPW 

54 

4 

360 

18 

5 

B 

42 

The  program  is  called  by  the  command:  RUN  FXCSUM: SV. 

The  system  outputs  (1) 

(1)  ENTER  SAMPLE  TYPE? 

If  the  sample  type  is  not  correctly  entered,  the  system  responds  with  (2), 

(2)  NON  EXISTENT  SAMPLE  TYPE 
and  repeats  (1). 

If  the  sample  type  is  alright,  the  system  checks  for  the  CUSUMn:DA  and 
STATSn:DA  files.  If  either  file  is  not  found,  the  system  prints  (3), 

(3)  _ n:DA  NOT  AVAILABLE 

and  terminates.  If  both  files  are  found,  the  system  prints  (4). 

(4)  ENTER  ANALYTE  NAME? 

If  the  analyte  name  is  incorrect,  the  system  responds  with  (5), 

(5)  ANALYTE  NOT  IN  THIS  SAMPLE  TYPE! 

and  repeats  (4).  If  the  analyte  is  correct,  the  system  then  procedes  to 
write  out  the  two  records  in  CUSUMn:DA  and  terminates  with  (6) 

(6)  BASIC  READY. 


This  sequence  is  illustrated  in  the  following  example  dialogue. 
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In  this  example,  the  sample  type  BSNF  did  not  have  the  data  base 
completed  for  any  analyte  than  Cl.  Hence,  Cl  worked  OK.  F  was 
rejected  as  it  is  not  an  analyte  in  BSNF  samples.  The  END-OF-FILE 
message  occurred  because  the  data  base  record  for  NIT  had  not  been 
prepared. 

In  the  second  example,  the  cusum  file  for  CPW  samples  had  not  been 
created. 


>RUN  FXCSUM 


ENTER  SAMPLE  TYPE ?  ?BSNF 
ENTER  ANALYTE_NAMEj_?  CL 
ET?TER'7\NALVTE  NAME:? F 
ANALYTE  NOT  IN  THIS  SAMPLE,  TYPE.! 

ente:r  analyte  name;? n i t 

END-OF-FILE/END- OF- RECORD  IN  LINE  620 


>RUN 


ENTER  SAMPLE  TYPEl? CPW 


NOT  AV A ILABLE! 


BASIC  READ) 


> 


CKCSUM:  SV  -  PROGRAM  TO  PLOT  CUSUM  FILE  ON  SYSTEM  CONSOLE 

This  program  plots  the  cusum  file  for  a  specified  analyte  in  a 
specified  sample  type  on  the  system  console  (or  other  specified  device). 
Use  of  the  program,  of  course,  requires  the  presence  of  the  appropriate 
CUSUMnrDA  file  (n  is  the  sample  type  as  defined  on  A-l),  and  the  methods 
file  MF.T110D : DA .  It  first  checks  for  the  availability  of  the  methods 
file,  and  if  it  is  not  present,  it  aborts  with  the  error  message  (1). 

(1)  METHOD: DA  NOT  AVAILABLE 


If  the  file  is  present,  the  program  prints  (2) 

(2)  ENTER  SAMPLE  TYPE 

and  entering  any  character  (other  than  space)  followed  by  return  will  end 
the  program. 

If  it  is  not  defined  in  the  methods  file,  error  message  (3)  is  printed, 

(3)  ILLEGAL  SAMPLE  TYPE 

and  the  program  waits  for  a  valid  type.  The  program  can  be  terminated  by 
hitting  the  space  bar  and  a  carriage  return.  When  an  acceptable  sample 
type  is  recieved,  the  program  then  looks  for  the  proper  STATSnrDA  file. 

If  not  found,  it  issues  the  error  message  (4), 

(4)  STATSn:DA  NOT  AVAILABLE 

and  goes  back  to  the  request  for  a  sample  type,  (2).  If  the  stats  file  is 
found,  the  program  then  prints  (5) 

(5)  ENTER  ANALYSIS  NAME 

If  the  analysis  is  not  included  in  the  methods  file,  an  error  message 

(6)  is  printed, 

(6)  UNDEFINED  ANALYSIS  FOR  THIS  SAMPLE  TYPE 

and  the  prompt  (5)  is  repeated.  Entering  any  character  (other  than  space) 
followed  by  return  will  restart  at  (2). 

When  a  proper  analyte  is  entered,  the  system  prints  (7) 

(7)  WHICH  PART? 

Acceptable  responses  are  P,  A,  or  E;  P  for  precision  cusum,  A  for  accuracy 
cusum,  and  E  for  return  for  another  analyte.  In  the  plot  on  a  terminal  or 
line  printer,  the  upper  limit  line  is  shown  by  +,  the  lower  limit  line  by 
the  expected  line  by  0,  and  the  actual  line  by  *.  A  typical  example 
follows.  (This  plot  was  made  from  a  new  cusum  chart  containing  no  data, 
only  the  limits. 

>RUN 

ENTER  SAMPLE  TYPE?  B5NF 
ENTER  ANALYSIS  NAME?  CL 
WHICH  PART?  P 


IN  BSNF 


RECISION  CUSUM  FILE  FOR  CL 
JULY  9*1976 


l 


0 


♦ 


0 


♦ 


.10 
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ENTERS: SV  -  PROCRAM  TO  ENTER  SAMPLES  INTO  SYSTEM 

This  program  is  used  to  log  samples  into  the  data  management 
system.  Enters  requires  the  presence  of  four  data  files: 

0  METHOD:DA  -  file  of  methods  information 

•  GRSIZE:DA  -  file  of  group  size  data 

•  QCTIME:DA  -  file  to  store  information  about 

the  sample  group  in  process 

•  TEMFIL:DA  -  temporary  file  to  store  information 

about  each  sample  for  later  permanent 
storage. 

Enters  recognizes  the  five  sample  types  currently  contained  in 
the  methods  file.  A  definable  sample  class  "SPEC"  is  planned  but  not  yet 
implemented.  It  permits  samples. to  be  handled  as  GROUPED  or  UNGROUPED 
samples,  depending  upon  the  situation  or  viewed  by  the  person  responsible 
for  entering  samples. 

GROUPED  samples  will  normally  be  used  when  a  relatively  small 
number  of  samples  is  being  handled.  The  intent  is  that  a  complete  set  of 
Q.C.  samples  will  be  included  with  each  group.  Some  alteration  in  what 
constitutes  a  "complete  set  of  Q.C.  samples"  may  be  required  as  experience 
is  gained  with  the  system,  but  the  initial  setup  includes  an  entire  set  of 
7  standards  (0.5X  to  50X)  and  duplicates  or  blanks.  The  group  size  table 
includes  specification  of  Q.C.  samples  for  any  size  group. 

The  UNGROUPED  category  is  designed  for  a  sample  which  will  be  run 
very  often  (50  or  more  per  week).  This  category  will  include  a  set  of  7 
standards,  3  duplicates,  and  3  blanks  for  each  30  samples. 

Normally  a  GROUPED  sample  set  may  be  started  any  time  one  GROUPED 
set  has  been  completed,  or  if  the  system  is  running  in  the  UNGROUPED  mode. 
It  is  not  necessary  to  enter  all  samples  of  a  group  at  one  time,  although 
that  can  be  done  if  desired.  The  system  keeps  track  of  each  group  in  the 
file  QCTIME:DA. 

The  only  limitation  is  that  TEMFIL;DA  can  only  hold  information 
for  60  samples,  including  the  Q.C.  samples. 


The  system  is  protected  as  much  as  possible.  Enter  of  numeric 
data  where  alphabetic  data  is  required  (or  vice  versa)  will  cause  the 
program  to  print  11  and  wait  for  a  proper  response.  There  is  one  point 
of  caution,  however.  The  use  of  Control-Q  MUST  be  avoided  for  termination, 
because  the  program  requires  proper  exit,  which  involves  writing  data  in 
three  files.  Use  of  the  Control-Q  will  completely  ruin  sample  number 
continuity  and  Q.C.  spacing  records. 

When  ENTERS  is  run,  the  program  initially  prompts  (1). 

(1)  GROUPED  SAMPLE? 

If  the  response  is  N  (or  NO),  the  program  prompts  (2). 

(2)  ENTER  SAMPLE  TYPE? 

If  the  sample  type  is  not  defined  in  METHOD: DA,  the  program  prompts  "NON- 
EXIST  SAMPLE  TYPE"  and  repeats  prompt  (2).  When  a  suitable  sample  type 
is  entered,  the  program  checks  QCTIME:DA.  If  an  uncompleted  group  is 
currently  in  progress,  the  program  prompts  (3). 

(3)  GROUP  CURRENTLY  IN  PROGRESS. 

n  REMAINING.  SHOULD  GROUP  BE  COMPLETED? 

If  the  response  is  Y  (or  YES),  the  old  group  is  completed.  If  the  response 
is  N  (or  NO),  the  current  group  is  abandoned  and  this  sample  type  is  run 
in  UNGROUPED  mode  until  a  new  group  is  defined.  In  this  case,  the  program 
then  proceeds  with  actual  sample  entry  dialogue  (6). 

If  the  response  to  (1)  is  Y  (or  YES),  the  program  then  prompts  (A). 

(4)  NEW  GROUP? 

If  the  response  is  (Y),  the  program  ptompts  (5). 

(5)  GROUP  SIZE?  , 

If  the  response  is  greater  than  25,  the  program  prompts  "MAX  GROUP  SIZE  IS 
25"  and  repeats  prompt  (5).  When  a  satisfactory  group  size  has  been 
enetcred,  the  program  then  prompts  (2). 

If  the  sample  type  is  acceptable  and  there  is  no  current  group,  the  pro¬ 
gram  procedes  to  setup  a  sample  group,  then  prompt  (6). 

(6)  LAB.  NO  IS  A00001  (or  whatever  the  next  number  actually  is) 

n  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  NO? 

A  six-character  sample  number  provided  by  the  user  is  entered. 


n—2.  4 


The  program  then  prompts  (7) 

(7)  ENTER  JULIAN  DATE  RECEIVED? 

The  5-digit  Julian  date  is  entered.  For  each  sample  group  at  a  single 
sample  login  session,  the  letter  S  can  be  used  after  a  date  for  the  first 
sample  enetered.  This  will  cause  the  same  date  to  be  repeated. 

The  program  automatically  assigns  Q.C.  samples  in  a  pseudo-random  order* 
and  prints  out  the  lab  no.  and  the  identifying  data.  Standards  are  given 
in  terms  of  the  concentration  used  in  initially  setting  up  the  statistical 
data  base.  This  concentration  should  not  be  changed  (even  if  the  detection 
limit  does  drift)  until  a  new  statistics  data  base  is  started,  otherwise 
the  validity  of  the  accuracy  data  will  be  destroyed. 

If  no  Q.C.  samples  are  in  order  (or  after  the  Q.C.  sample  information  has 
been  typed,  the  program  then  prompts  (8). 

(8)  ANOTHER  SAMPLE? 

If  the  response  is  Y  (or  YES),  the  program  proceeds  to  the  next  sample, 
prompt  (6).  If  the  response  is  N  (or  NO),  the  program  then  prompts  (9). 

(9)  ANOTHER  GROUP.  .. 

If  the  response  is  Y  (or  YES),  the  program  returns  to  prompt  (1). 

If  the  response  to  (9)  is  N  (or  NO),  the  program  terminates. 

As  long  as  room  remains  in  TEMFIL:DA,  ENTERS  can  be  rerun 
repeatedly;  the  new  entries  are  added  at  the  end.  When  a  group  (including 
the  Q.C.  samples)  is  larger  than  the  remaining  space  in  TEMFIL:DA,  a 
warning  prompt  is  given:  "THERE  IS  ROOM  FOR  ONLY  N  FILES".  Also,  when 
TEMFILrDA  is  filled,  the  program  will  automatically  end. 


A  random  number  sequence  is  used,  but  it  is  required  that  duplicates  must 
be  duplicates  of  a  user  sample,  not  a  blank  or  standard,  so  duplicates  are 
not  placed  in  a  totally  random  manner. 


- - - - -'wft  *  —  - 
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Illustrating  and  largely  self-explanatory  dialogue  is  given  below: 


>RUN  ENTERS 
GROUPED  SAMPLE?  ? Y 
NEW  GROUP?  ?N 
ENTER  SAMPLE  TYPE:  7360 

LAB.  NO.  IS  A00009 
2  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  N0:?A12678 
ENTER  JULIAN  DATE  RECEIVED.  712378 
ANOTHER  SAMPLE? Y 

LAB.  NO.  IS  A00010 
2  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  N0:?A12679 
ENTER  JULIAN  DATE  RECEIVED.  ?S 
ANOTHER  SAMPLE7Y 

LAB.  NO.  IS  A0001 1 
2  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  NO:?A12680 
ENTER  JULIAN  DATE  RECEIVED.  ?S 
ANOTHER  SAMPLE7Y 

LAB.  NO.  IS  A00012 
2  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  NO: ?A1 23677 
ENTER  JULIAN  DATE  RECEIVED.  ?S 

LAB.  NO.  IS  A00013 
2  RECORDS  NEEDED. 

Q.C.  SAMPLE:  STANDARD-  C0NC.=.5X 

ANOTHER  SAMPLE7N 

ANOTHER  GROUP7Y 

GROUPED  SAMPLE?  ?Y 

NEW  GROUP?  ?N 

ENTER  SAMPLE  TYPE:  7360 


LAB.  NO.  IS  A00014 

2  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  N0t?BC1245 
ENTER  JULIAN  DATE  RECEIVED.  703978 
ANOTHER  SAMPLE? M 
ANOTHER  GROUP7Y 
GROUPED  SAMPLE?  ? Y 
NEW  GROUP?  ? Y 
GROUP  SIZE?  ?BSNF 
??10 

ENTER  SAMPLE  TYPE:  ?BSNF 
GROUP  ALREADY  IN  PROGRESS! 

5  REMAINING.  SHOULD  IT  BE  COMPLETED? Y 

LAB.  NO.  IS  A00015 
4  RECORDS  NEEDED. 

ENTER  USER  SAMPLE  NO:?QWllll 
ENTER  JULIAN  DATE  RECEIVED.  704478 

LAB.  NO.  IS  A00016 

3  RECORDS  NEEDED. 

Q.C.  SAMPLE!  DUPLICATE  OF  LAST  SAMPLE! 

LAB.  NO.  IS  A00017 
3  RECORDS  NEEDED. 

Q.C.  SAMPLE:  STANDARD-  C0NC.*5X 
ANOTHER  SAMPLE7N 
ANOTHER  GROUP ?N 


BASIC  READY 
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FILWRT: SV  -  PROGRAM  TO  WRITE  OUT  SAMPLE  FILES  FROM  TEMFILrDA 

i 

i 

FILWRT  is  used  to  write  out  sample  files  indicated  when  ENTERS 
is  run.  FILWRT  accesses  the  methods  file,  METHOD:DA,  writes  the  required 
sample  information  in  the  sample  files,  chains  to  DIRFIXtSV  to  enter  the 
files  in  the  status  file,  STATUS:DA,  and  the  cross  reference  file,  CREFT:DA. 

For  proper  operation,  it  is  essential  that: 

(1)  All  sample  files  have  been  created,  with  the 
proper  length. 

(2)  The  statistics  file  for  all  analyses  have 
been  set  up. 

(3)  There  is  sufficient  room  in  STATUS:DA  and 
CREFT:DA  for  all  files  to  be  entered. 

If  any  of  these  conditions  are  not  fulfilled,  FILWRT  will  terminate 
abnormally  with  a  diagnostic  message. 

FILWRT  involves  very  little  dialogue.  When  it  starts,  it  types 
the  prompt  (1). 

(1)  ENTER  NO.  OF  RECORDS  TO  SKIP? 

This  question  should  be  answered  with  0,  unless  one  of  the  error  conditions 
has  occurred  (discussed  in  more  detail  in  subsequent  paragraphs).  It  will 
then  proceed  to  process  TEMFILrDA  typing  the  name  of  each  file  in  sequence. 

If  it  finishes  normally,  it  types  the  message  (2). 

(2)  ALL  FILES  IN  TEMF IL : DA  COMPLETED 
If  all  files  are  written  out,  but  there  is  not  room  in  STATUS :DA  or 
CREFT:DA,  message  (2)  will  be  followed  by  messages  (3)  and  (4)  (Error  A). 

(3)  STATUS: DA  OR  CREFT: DA  FULL! 

(4)  ONLY  n  ENTRIES  MADE  FROM  TEMF IL: DA 

Two  other  error  conditions  can  occur.  If  one  of  the  sample 
files  is  missing,  the  program  will  type  (5)  followed  by  (4)  (Error  B) . 

(5)  DATA  FILE  Xnnnnn:DA  NOT  AVAILABLE 
If  one  of  the  statistics  files  are  absent,  message  (6)  will  be  typed 
followed  by  (4)  (Error  C). 

(6)  STATISTICS  FILE  STATSn: DA  NOT  AVAILABLE 

Recovery  from  an  error  involves  correcting  the  error  and  rerunning 
FILWRT.  Errors  B  and  C  are  corrected  by  creating  the  missing  data  file  or 


;* 
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completing  the  incomplete  statistics  file.  Error  A  requires  either  deleting 
inactive  (completed)  names  from  STATUS:DA  and  CREFT:DA  or  making  the  STATUS:DA 
and  CREFT:DA  longer.  The  deletion  of  file  names  is  planned  as  a  part  of  the 
program  to  transmit  data  to  the  Tektronix  4051  (page  21) 

When  rerunning  FILWRT  after  the  error  has  been  ocrrected,  enter 
the  number  typed  out  in  the  error  message  in  response  to  prompt  (1). 

Sample  dialogue  sequences  are  shown  below. 


3A3IC  READY 

>RUM  INTERS 

CROUPE,)  SAMPLE?  ?Y 

NEW  GROUP?  ? Y 

GROUP  SIZE?  ?5 

ENTER  SAMPLE  TYPE:  ?360 

LAO*  NO.  IS  A05I221 
2  RECORDS  NEEDED. 

0.  C.  SAMPLn-DLANX! 

ANOTHER  SAMPLE? Y 

LAO.  i <0.  IS  riOS  0  t  -* 

L  RECORDS  i4c.Ljn). 

Eli  TZP.  JS-h  SAt.PL/.  N0:?A12345 
ENTER  JuLIhN  Oa'IE  REULIVLJ.  ? 04272 
ANOTHER  SAi'IPL/.? Y 

LAO.  NO.  IS  AC3303 
2  RECORDS  NLLJci). 

ENTER  USER  SAMPLE  N0:?rtl2346 
ENTER  JULIAN  DATE  RECEIVED.  ?3 

LAO.  NO.  IS  A30004 
2  K  /.LORDo  N  c  a :) c.  D. 

w.  C,  SAMPLc.;  DUPLICATE  OF  LAST  SAOPL,-! 
ANOTHER  SA,iPLE?N 
ANOTHER  GRGUP7N 

SASIC  HEADY 
> CREATE  AD 30 A  1  :  DA , 2 
> CREATE  A 3 CD OR: dA,  2 
> CREATE  ACW,33:DA,2 
> CREATE  AC!DDA:JA,2 


> RUN  FILWRT 

ENir.ii  NO.  Or  wNiRl*-S  10  oi(lP?P 
FILE  ADJDD1 :  DA 
F 1  Lf.  ADDDDJjdA 
rIL,.  aD„‘D.;3;  da 
r  I  L_  AJDDC'tj  DA 

4  ENTRIES  COMPLETED  FROM  TLOKILJJA. 


HUN  FILCMK 
sa.iPle 

,  l 

:l 


1 1  T 
’!l 

lAiiJ 

JA 

3lii? 
jCP  O 


NUrii3i.H  ?  A  30  3.*  1 
ac;030 

0  3 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  3 

0  0 


N J  OF  GAi'iPLc-. 


•  WA30000 


3 

3 

r» 

*.» 

n 

i/ 

rt 

u 

I o 

•1 

// 


TEH 


GArlPLE  NuUJLH?A'J 
2  rl0'J0.523E0 


..)0  32 
A 123 A3 


MI 
?;i 
GO  A 
llAaO 
HA 

JliiP 

JCPD 

EH  3  OF  SAMPLE. 


n 


0 

0 


2 

0 


ENTER  SAMPLE  HLRluEft? 
MAGIC  REA  JY 


'S  S3 


This  program  is  used  when  an  analysis  is  started.  It  sets 
the  appropriate  flags  in  the  analysis  data  file  and  the  status  file, 
so  that  system  queries  will  indicate  the  actual  status.  It  requires 
the  methods  file,  METHOD:DA,  the  status  file,  STATUS:DA,  and  the  cor¬ 
responding  CUSUM  file.  Absence  of  any  one  of  these  will  cause  a  run¬ 
time  error. 

When  the  program  is  started,  it  issues  the  prompt  (1). 

(1)  ENTER  SAMPLE  TYPE? 

If  an  unknown  sample  type  is  entered,  the  system  prints  (2),  and  repeats 
(1),  waining  for  an  acceptable  sample  type. 

(2)  ILLEGAL  SAMPLE  TYPE! 

When  an  acceptable  sample  type  is  entered,  the  system  prompts  (3). 

(3)  ENTER  ANALYSIS  NAME? 

Any  name  not  defined  in  METHOD: DA  causes  the  error  message  (4),  and 
repeats  prompt  (3). 

(4)  UNDEFINED  ANALYSIS  FOR  THIS  SAMPLE  TYPE. 

When  an  acceptable  analysis  name  is  enetered,  the  system  checks  the  CUSUM 
file.  If  either  the  precision  or  accuracy  file  shows  "out  of  control",  the 
error  message  (5)  is  typed  and  the  prompt  (3)  is  repeated. 

(5)  PRECISION*  Q.C.  OUT  OF  CONTROL. 

If  the  CUSUM  file  is  OK,  the  system  then  types  prompt  (6). 

(6)  ENTER  SAMPLE  N0? 

If  no  such  sample  number  is  found,  the  prompt  is  repeated.  If  the  sample 
file  is  found,  the  sample  type  is  checked  against  the  type  entered  in  (1) 
above.  If  the  types  do  not  agree,  the  error  message  (7)  is  typed  and 
repeats  prompt  (6). 

(7)  ■  SAMPLE  Xnnnnn  IS  WRONG  SAMPLE  TYPE? 

If  the  sample  type  is  OK,  the  system  then  checks  the  status  flag  for  the 
analysis.  If  the  analysis  has  already  been  started  (or  completed),  the 
system  issues  an  error  message  (8a)  or  (8b)  and  repeats  prompt  (6). 


*or  "ACCURACY”,  etc. 


(8a)  ANALYSIS  ALREADY  STARTED 
(8b)  ANALYSIS  COMPLETED 

If  the  analysis  has  not  been  started,  the  status  flag  is  set  to 
started  in  the  sample  file  and  in  the  status  file. 

The  dialogue  is  illustrated  in  the  following  example: 


. . 

A-22 

CREF:SV  -  Program  to  Determine  Status  of  Samples 

This  program  returns  the  status  of  samples.  It  can  be  used 
to  search  for  a  sample  by  user  number  or  by  laboratory  number.  It 
requires  the  status  file,  the  cross  reference  file  and  the  analysis  data 
file. 

When  started,  the  system  prompts  (1). 

(1)  ENTER  USER  SAMPLE? 

* 

Almost  any  six-character  name  is  accepted.  The  system  reads  the  cross 
reference  file,  and  if  that  entry  is  not  found,  issues  the  error  message 

(2)  and  repeats  (1). 

(2)  USER  NO.  NOT  IN  CROSS  REFERENCE  FILE! 

If  the  entry  is  found,  the  system  types  (3), 

(3)  LABORATORY  NO.  IS  Xnnnnn 

and  also  indicates  whether  the  sample  has  been  started  or  not.  If  it  has 
been  started,  it  indicates  how  many  analyses  have  been  started  and  how  many 
have  been  completed.  It  then  types  the  prompt  (4). 

(4)  DO  YOU  WANT  THE  STATUS  OF  INDIVIDUAL  ANALYSES? 

If  the  users  response  is  N  (or  NO),  the  system  goes  to  (1).  If  the  users 
response  is  Y  (or  YES),  the  status  of  each  analysis  is  printed  individually, 
and  the  system  then  goes  back  to  (1). 


*CAUTION  -  EXCEPTION  -  Any  character  (other  than  space)  followed  by 
return  is  used  if  you  want  to  get  the  status  of  a  sample  by  lab.  no. 
and  will  cause  prompt  (la). 

(la)  ENTER  LABORATORY  NUMBER? 

In  this  case,  step  3  is  skipped,  and  the  system  proceeds  to  process 
the  given  lab.  no. 


w- 
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The  following  dialogue  illustrates  the  use  of  CREF:SV 


>;;uiJ  calf 

USLA  M). :  ?Al;i345 
LAi>«  IJO.  1.3  AT..'jC1 
m;.aLY-3I-3  TYP..  36'.!  PUT  Yi.l  JTrthTL). 
oUT.iit  Udcn  (.0* :  ?AlLl3i'T 
LA  a.  (A),  i  o'  a  3,1'.:  /.5 

AfvaLYol  J  TYIL-:  36.Y  (!0T  Y*-T  SlAftTLJ. 

HUTii.fi  LJL/i  |i0.  :  ?Al  5.3UT 

Uor.ri  NO.  KOI  Hi  C/;U3U  net  rllv!_l 

cl.TLli  uJr.i;  AU.  :  ? 

wn!  i  h.M  L.H Li*  UO*  *?  ao  0  0  1  1 

LA  ).  fit).  t.'Of  It;  oiAiuJ  KiLwi 
LN  i  uj;li  i-.u* :  ?u 
C.K  1  —it  LAO*  iiOm'?vt 


ENTERD: SV  -  PROGRAM  TO  PUT  ANALYSIS  DATA  IN  FILE 

ENTERD  is  used  to  put  analysis  results  into  the  sample  data 
files.  Since,  in  theory,  the  analyst  does  not  know  which  samples  are 
user  samples  and  which  are  Q.C.  samples,  the  program  treats  all  alike. 
When  the  program  is  started,  it  issues  the  prompt  (1). 

(1)  ENTER  LAB  SAMPLE  NO:? 

If  the  sample  number  entered  does  not  correspond  to  an  existing  sample 
data  file,  an  error  message  (2)  is  issued  and  prompt  (1)  is  issued.* 

(2)  FILE  UNNNNN: DA  NOT  AVAILABLE! 

When  a  proper  sample  number  has  been  entered,  the  program  checks  the 
sample  data  file  heading  for  internal  consistency.  If  no  problems  are 
found,  it  then  issues  the  following  series  of  prompts  (3-9). 

(3)  ENTER  ANALYSIS  NAME: 

(4)  ENTER  ANALYSIS  RESULTS: 

(5)  ENTER  DATE: 

(6)  ENTER  ANALYSIS  METHOD: 

(7)  ENTER  INSTRUMENT  NO: 

(8)  ENTER  ANALYSTS  INITIALS: 

(9)  ENTER  MEASUREMENT  UNITS: 

If  the  analysis  name  does  not  exist,  for  the  sample  type,  or  is  not 
recognized,  the  program  issues  error  message  (10),  and  goes  back  to  (3). 

(10)  ANALYSIS  NOT  IN  FILE. 

If  the  analysis  name  is  satisfactory,  the  next  action  depends  on  the  type 
of  sample. 

For  user  samples,  the  program  next  checks  the  cusum  files  if 
either  accuracy  or  precision  is  unsatisfactory,  an  error  message  (11)  is 
issued  and  the  program  goes  to  step  (12). 

(11)  PRECISION  (or  ACCURACY)  Q.C.  OUT  OF  CONTROL. 


*A  response  of  Control  Q  or  any  character  followed  by  return  aborts  the 
program. 


If  the  cusum  files  are  satisfactory,  prompt  (12)  is  issued. 

(12)  ANOTHER  ANALYSIS  FOR  THIS  SAMPLE? 

If  the  response  is  YES  (or  Y),  it  returns  to  prompt  (3).  If  the 
response  to  (12)  is  NO  (or  N) ,  the  data  are  entered  in  the  sample  file, 
the  status  file  is  updated,  and  the  program  returns  to  prompt  (1). 


31/®  T*00004  IS  ON  CR327o7  USING  0U012  BlKS  KB0TUO 


1  1 0k£M  -  program  ustais:sv 

2  20*Eh  -  HRuGk  Art  10  UPDATE  F Ht  STATISTICS  FILE 

3  OxJCUrt  A  t<lj  ,b  C2]  #t  12,71  ,D  [7]  ,t  [71  ,F  17]  ,G  [/)  ,H[7]  ,Z  [/)  ,M14J 

4  4WLUn  0519] 

5  :>0ulrt  bi  124]  ,Cs  [5]  ,E5  [9]  ,  AS  U75]  ,  I  [2,5]  ,  J  [100] 

6  &U0A1A  .5, 1,2, 5, lU,2t>,50 

7  70LE1  S1»0 

8  O0POK  i s  1  TO  7 

9  90kEaD  Z(I] 

0  10K)NtXF  i 

1  HOLtT  Oa»a"STATS  TUA" 

2  12*F1LlS« 

3  I0k/ASSiGrt  "MtTnOUJOA",  l,t 

4  I4wlf  lsOGuTO  170 

5  lStoPklNT  "hE  1  HOD !  0  A  NO  I  AVAlCAoLtJ" 

6  lOioSTUrt 

7  l70RtAU  *1 }  AS,bS  11 ,20] 

8  18fc*tAu  a  1 , 2 

9  19oFUR  1  =  1  TO  lu0 
:0  20<.RtAO  #1 i  J  II] 

■l  210NtXT  I 

:2  22tfFuR  I  =  1  T 0  2 
:3  23oFoh  Jsiia  5 
;4  24oRfcA0  «i;  I  II,  J] 

;5  25oNtX|  J 
:t>  2t>kjNtXT  i 

>7  27  wPk In  T  "  t  N 1  E  R  SAMPLE  TYPtS  " 

ZB  2BwInPuT  CH1.4] 

'.y  29rfIF  vS="  "Slop 
3tt  30ULtT  J=-o 

31  SlfcFuK  I s  J  T 0  3 

32  32oLtT  J=J*4 

33  o3oIF  CS  =  ba  [J  ,  J+3]  THtN  370 

34  3  4  it'  N  t  X  1  I 

35  SSoPKlNT  "ILLEGAL  SAMPLE  T  Y  P  H  " 

36  36kiGoTu  2B0 

57  37 jCAUCCMRS C48tl , 05  Id, o] ] 

38  380AiSibN  OS,  1,E 

39  39wIP  L  =  <jTnEN  420 

4{i  40k)PRlNT  Di,"  NOT  AVAluAtiLt  l " 

41  4 1 oGoT  U  270 

42  42oPrxlNT  "CNTEK  ANALYSIS  N  A  M  t  •  "  J 

43  430INPUT  C a  [1,5] 

44  44uUtT  LSI  Cl ,  I] 

45  45tLfcT  I2al£2,13-l 

46  46uFuR  J  =  0  TO  1 2 

47  47  oLt  T  K=  (j  U+L) -1)  O+l 

48  48wU  tS  =  A*  IA  ,K  +  4)  THtN  520 

49  4 90 N t, X T  J 

50  50kPn IhT  "uNOEPlNtU  ANALYSIS  FuR  TrtlS  SAMPLE  TYPtl" 

51  9  1  «jGiJTu  420 

52  5 2 0 L C T  M (4j  =  J*1 
93  93oLE  T  S1*0 

54  040PKIM  "NEW  0 A 1  A  BASt?"l 

55  55c'GuSub  1010 

56  56l If  Ai=2uOTO  650 


w 

i  O  i/yyi  wi»  *•*  i  y  h«  ' 

>9  59uPKIinT 
30  O00NEXT  I 
»1  OlkiFuP  I=25TU  03 
>2  62uP«InT  »i;u 
>3  D3ioNtX1  I 
>4  0 4 6 G U T U  t> 6 ki 

35  ObtLtT  Slai 

36  663RtAu  ffl,M(4] 

37  07uRtAu  WUrtll]  |M  C21  ,«13] 

38  otlk’fufl  I  =  1T0  b 

39  6  9  0  fc  t  A  U  «i;A[I] 

7eiwNt.xr  i 

'1  7  1 10 1  r-  N[3]<4LEl  M3]:a 

'2  7  23  IF  hCl)>vJb010  750 

'3  73ldP»<lNT  "  t  N  T  E  h  IX  CUNLEnTKA]  ION  LtVtLJ"; 

I  4  7  4  0  I  IN  P  U  T  Mil] 

'5  7SuF0P  1 1 9  1  Tu  2 
'6  76uFuK  J  9  1  TO  7 
/7  77tREAu  «1JCII1,J3 
/ 8  78wNtXT  J 
1 9  790Ntxr  11 

30  b0kJlr  ol>0bO5Ub  i7o0 

31  oltFuR  J s 1  TO  7 

32  o2tKcAU  «i;JtJ]  ,t(J]  ,FtJJ  ,UCJ]  |HIJ] 

33  B3tNtXl  J 

34  B4*JPc.AU  »  1  ]  B  [  1  ]  ,  b  C2] 

35  b5t.Hc.i-l  "  IinPuT  OaTA  fPuM  TtKHlNAL 

36  o6k>Ph1nT  "  t  N  l  E  k  lAhGcT  LtVcL:  " J 

37  o  7 1 1  in  P  u  T  XI 

38  ofttFuK  1 1 9 1 T U  7 

39  09t IF  AiaZlIlllMfcN  930 

30  9  0  U  N  c  X 1  II 

31  91<)PkIinT  "ILLEGAL  TAKGC.T  Lt,VtLi” 

* 2  y2ifiGuTu  Obu 

73  93uIF  t 12. Ill <0TntN  90W 
*4  y4tPkI(NT  "LEVEL  aLkEAUY  FULL1” 

*5  95uGuTu  1340 

76  S60PhInT  " t  n  T  £  K  FOUNU  VALUc:  n) 

77  97tlNPuT  Y 1 

78  9  7  5 1 F  U<0bOTO  Ib70 

79  9B4IF  cU,il]  >»Tntp.  1010 
00  99ULuT  C  11, Ill =Yl 

3 1  104OGU  ft]  lu3t 
o2  1  a  1 0LE  T  G  1 2 , 1 1 ] =  Y  1 
33  1020PR1NT  " L t v E L  NUW  FULL.” 

j4  1 0  4  <J  F  0  k  Il-lTO  7 
)5  10401F  C 11 , 111 «WbOTO  1340 

36  1050 hEXT  II 

37  1 060 1 F  M  13] < 1 6T HtN  lu9u 

38  1 0  7  0lE I  FI9, 9375 

39  10B0UO1O  1100 

10  1090LEI  Flal 

II  llfULEl  L 9 m  111 

1 2  1110LET  Bill  =011]  *Fl 

13  1 1  2  0  L  E  I  0UJ=B[2J*F1 

14  11O0FUK  11=110  7 

15  1140LL1  Y 1 *C  1 1  , 1 1 3 

.6  1 1  50L 1 1  U[l,in9Ll2,IlJ 


'200T0  1 730 
11 3  A  Mt  ANALYSIS? 

mu 


1170LET  Xl=ZlIl)*L 
1  lOOLt  I  D  Ill  J  aD  HI]  *K1*X1 
i  iddlet  t  tin  »t  tin  *f  i*yi 
1 2 tJ id l 1 1  r  uu  sum  *n+xi*xi 

1 2 1 0  L 1 1  b  dll  *ti  [I1J  *F  1  ♦  Y  1  * r  1 
1  2  2  0  L  fc  T  M  tilJ  *H  (llj  *Pl-*-Xl*Yl 
1234LET  ll=Yl-Xl 
1 24UlE 1  uUJ=dClJ+Tl 
1250LET  0 Ul =a  12] +T1*T1 
1260NEXT  II 
1270LU  rttb]=HtJ]+l 
1 260  IF  Ml3]<4G0TU  134* 

12y0PKlM  "DU  YOU  wAlvT  STATISTICS  CALCULATED?  "I 
1300UOSU6  1  to l M 
1 3 1 0GOT  0  A  J  OF  1320,1340 
1320LHAIn  "huBVOSSSV" 

1330UOIO  1700 

1340PR1NT  "MoRt  DATA  TU  tNTEK?  " } 

l350bOblJt>  1610 

1 3o0  IF  AJS2G0T0  1730 

13/0PK1NT  "SAMt  ANALYSIS? 

lSbuuusuo  mu 

l3s*41F  AisiGuTO  660 

l4a0bO3U6  1440 

14iOrKiNf  "SaML  sample  TYPl?''; 

l42UbUaUb  1  to  1 W 
1  4  0  0  b  U  I  U  A  1  0  F  4  2  U  ,  2  7  D 
1440PR1N1  «1,U[4J 

1450PR1NT  «*1;M11J  ,K[2J  #M13J 
1460FUK  1  =  1  T  u  0 
14/^HkiNT  «lfA[I) 

14o0nEXT  1 
14»4FUk  11=1T0  2 
15K.0PUK  JslTU  7 

isiupkint  »i;c C 1 1 » J 3 

1 5  2  U  N  t  a  T  J 
1 5  o  0  N  t  a  T  II 
1S4UF0K  1=1TU  7 

15O0PK1NT  «i;DlIJrE[I},FlIJ,GtI],HlI] 

1  5  b  0  N  t  a  T  I 

15  / 4 PRINT  At  1 ;  6  HI  ,0  [21 
lSoonfc i UkN 
iSi/UbUSUd  1610 
1600bUlO  A 1 UF  42o,27u 

1614 input  ls 

1  6  2  4  I F  C»  [1,  1]  s"Y"THtN  1664 
1 6 0 4 1 F  C*  lit  1) *"N"THtN  leS0 
164UFK1N  T  "PLtMSt  ENTER  Y  UK  N 1" ? 

1  6otJbU  1  U  1  o  1  o 
Ibottutf  Al  =  l 
lb/UNt  I  UK N 
1 6o4ut 1  A 1 s  2 
1  b^UNt 1 UrN 

17U4PKANT  "MjRt  DATA  TU  tNTEK?" J 
l7l0bUSUBl614 
1  720bU 1 0  A  1 UF  l37U,2u7u 
1 7  30bO6Ud  1440 
1 7  405T  UP 

175DPK1NT  h[3J fTAbCWJ }”  SETS  OF  DATA  AnE  In  THt  I 


1660 
1  bBo 
(  Y  UK 


SETS 


data  anE 


THt  DATA  ttASt 


B- 


l7to3pHlNT  "Trl£  U  TAKtitT  CUNUENTh  AT  ION  IS  "  #  TAtt  Cl<3)  #  M  1 13 
1773PK1NT  "TtMPOKAKY  S  1  UK  AbE  S1A1U5!" 

17bt3FrtlNT  "LtVtL  CUNIEnTS" 

17ir«HJ»<  JslTU  7 
18«j*jpkani  l  IJ) ;TAb£iw) ; 
laivjMJw  11  =  1  ro  2 

182UIP  C  III,  J]  <WiiOTO  I03k3 
idiibrKiNT  l  Cli,  JJ  ?TAb(l8j  ? 

1833NtXT  II 
184UPH1N  f 
lBSldNfcXT  J 
1«03kc I UKN 
1  87  idLt  j  Y2  =  1 1 

ldbidpKlNT  "EnTEN  KtPL ALEMEnT  VALUE"; 
lByniNPUT  Y 3 

19U01P  C  11 , Y2) «-Y lbOTO  1U3U 
1  y  1  viLt  1  Ltl,Y23=Y3 
192db0lQ  134o 

l90«5iP  L  12,  Y23  «YlGuTU  I9b0 
1 9  4«ol£  f  L[2,Y2J=Y3 
19D0bUTQ  1340 

19C3PP1NT  "DATA  NUT  IN  TtHPOw ANY  STUKAbE." 

19/uipPiNr  "ou  you  want  Data  base  cgnkelted"; 

I9bou0buo  lbiu 
1993IF  Ajs^bUTU  lo<io 
23WOLE1  Xl=Xl*htl3 
2v41olE1  c  [Y2J  =t  IY2] +Y3+Y  1 
it 2ULE1  b C  V  2 J  =b CY2J +YJT2-Y1T2 
«^Oe>Ltl  MIY2J  =  hlY2J  *Xl*(Yl+Y3) 

244viLtl  Dll)=dll]+YJ  +  ri 
2tf3wLtT  s  [21  =8  12]  ♦tYo*Yl)t^ 

2t0Otfi,UIO  1340 
it/ titNU 


.u&c* 


C^i 

:**  T80 Idawy  IS  UN  LU  u5 


lUKErt  -  HUbVUSJSV 
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>3  i  5  3  rf  a  c  I  j  a  n 

1 4  154ij|-r\l  -M  "AU^LAbY  b  I  A  r\  T  t  u  J  " 

>  5  1  0  6  <i  o  Ul  U  b  n  J 

>6  1  o  c  o  r  *  i n T  "uuNti" 

>7  i  b /  ■) u o  l  0  boo 
>8  lbodtuu 


RuG*U  T  =  Uu k)$A  lo  UN  Ck327o7  U^IihG  KUU12  bl.K$  K*UU16 


't  ?l  ki  1 

13kc.PI  -  r-HUUKAU  ANLY22SSV 

)4'u? 

dAntr i  -  SElOoO  PaHT  UP'  AhALYZ.  LHfcCr.S 

AND  StTS 

)2iw3 

SOntM  -  STATUS  F  ILc.  »UU  T  HcN  CHAIMS  b  AUK  TU  ANALYZ. 

■  0  0  4 

40*tn  -  2/24/7o  VCKSJOU 

•  V)«j5 

bOUU.1  £  (21  ,d*  U*i  »cs>  Ibj  ,t>  191  ,  AS  117b)  , 

112*0)  , J  llooj 

Y«i6 

OULU  ti  A  { 4  ]  ,  C  1 2  o  1  #  U  *  ( i*  ]  t  L  j  C  4  4  w  J  #  H  S  [  7  6  J 

«.// 

/  0  y  1 1 1  0  l  0  4  j 

tfl'oQ 

OOP lLtiS 1  A | US : UA 

Pt-i) 

SOLtl  0  1  =  3 

Old 

lOULtT  Jsl 

Oil 

lit;  IP  CNU  *t  1  T  H  t  N  3  2  3 

01? 

1  2 1>  K  t  A  U  4  1  *  J 

013 

130FUH  1=1 1 U  64 

014 

l4t.Kc.Au  4 1 ;  a  1 1  j 

015 

ISunlXJ  1 

fi  1  6 

IOLPlK  1  =  1  fU  6 1  ST tP  4 

017 

1/ulP  1  3  1  AitL)  JsloUlO  2  00 

01b 

1  ti 0 1  r  A  tlJ^HlIJUuTU  <;HB 

01?) 

la^lp  Mt2]=atI  +  U^UTu  t3w 

Ad «.' 

2  0k  WCX  1  1 

4tl 

1 1 tLc T  J  =  J«-1 

3t? 

2  2  c  U  U  T  U  11m 

■tc3 

23flp  L  [  1  ♦  o  1  > 2 ol’O T u  2bti 

124 

2  4  L  c  1  bll+3ja10kj 

it  5 

2  0  w  u  o  T  u  c  7  ii 

V.h 

cf>tLLl  a  ii +3]  so  Cl ♦o] +1  wO 

’27 

27..  PnluT  «1,J 

'tf 

2  6  „  P  l  k  1  =  11 u  64 

V.P 

2» JHn luT  n i ; o  Cll 

'.00 

0  0 1  IM  e.  X  1  J. 

01 

o  1  oLn A  1  j  "A>\L  Y4l  13v  "  ,  ftvt) 

0? 

32  o Col) 

\ 

i 
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j 


UTILITY  AND  MAINTENANCE  PROGRAMS 


<***  T8000U0  Id  UN  LU  US 


i\  XUkEM  -  DETECTION  LIMIT  ANU  tKROR  PROGRAM, 

12  2  4k  Eh  -  UStS  MtThOu  UP  HUtiAUX  ANU  VOS# 

13  34kEM  -  12 722/77  R  t  V « 

)4  44ulM  w  ( 3 1 J  i  X  t  00]  #  Y  f  t>4]  t  L  (  S3  «  L  S  1 33 

15  OUU A T A  8tJ,y«J,95»U8,9y 

16  D0POK  1 8  1  TU  S 

17  /UKEAt)  ClIJ 

18  bUhExf  I 

19  90LtT  L«1 

.0  1 U  U  L  t  T  Z380 

.1  HwPrilNT  "UETECTION  LIMIT  PRUGRAm" 

2  i  2uPf<  I  NT  "legal  lommanus  AkE:" 

.3  130PRINT  «  t  *  t  X I  T  " 

.4  IAuPrInT  "  R  =  r£ST ART " 

.5  15uPkInT  "  LN=N  RtPLlLATES" 

; 6  16wPkIinT  "  jjNsN  STANDAKUS" 

17  17uPrInT  "  CMn8mN  CUNPIuEnCE  LEVEL" 

,8  ISUPnInT  "hHaT  IS  THE  NUnbtR  OP  INUtPENDtNT  CAlIERaTIOn  VALUtSY" 

.9  I9t'f  XLcSTTAUlEsOa 

i0  2M«iInPuT  N 

.'1  2l0lP  N<8  2 T M E N  75o 

.’2  22bL t T  I  =  T 30 

!3  23t.PRliMT  "tNTER  T  HE  LOnF IDeNCE  LEVEL  DESIRED" 

!4  24oGuaub  810 

!5  2S^1nPuT  Z1 

■  6  26tt(juSuB!23ti 
7  27u IP  ZlbUUUTO  340 

:  8  280GuSutJ  800 
■9  29«jGu T U 

.0  340PkInT  "LNfER  1  He.  NUMtitR  OP  INPUT  VAlUlS"? 

>1  310INPUT  W 
2  32u IP  *<nTHEn  b30 

>3  330 PRINT  "tNTER  X,Y  VALUtS  AS  X«Y  PAIRS." 

' 4  34oFuW  I  =  1TU  W 

5  3 5 0 1 N P u T  X  IIJ  ,  Y  til 

6  3  6  w  n  t  X  T  J 

7  37uLcT  Al  =  A2  =  C 1 =C2=C3=U 
B  300FuR  I  *  1 T  0  w 

9  39wLcT  A  1  a  a  1  +  X  [I] 

0  400Lt T  Cl8Ul  +  Y  IIJ 

1  4 1  wLc.  T  A4  =  a2+x  (I J  *  X  C  X  3 

2  4 2 U L c T  C2SL2  +  X  [1]  *Y  UJ 

3  43wLt T  C3sl3  +  Y HI  *Y III 

4  44ahtXT  I 

5  430LtT  X1sa2-A1*A1/R 

6  46ULC.T  Y1sl3-C1*L1/W 

7  47uLtT  Zi=L2-Cl*Al/M 

8  480LET  MliZl/Xl 

9  49ULE T  S18IC1*A2«A1*L2J/(W*X1) 

0  340PHINT  "THE  SLUPl  IS  " f Tab  14 J ; Ml 

1  SIuPhInT  "JHt  lNTEhCtPT  IS  "JTAdlUJIbl 

2  S20LET  S1»SUR UY1-Z1T2/X1) 7 (*-21) 

3  S30PkI*T  "THt  STANUARO  OfeViATIUN  Is  "Si 

4  S4uLE T  E 1 8 a  1 7 W 

5  SSUPkInT  "tNTER  COMMANUS"! 

6  36uInPuT  Li 

7  S/ULtT  A»3Lst2,2] 

8  S80GUTU  884 


9  590LET  S*S1*T 

0  O0OIF  S 1 =0G0  TO  090  . 

1  blOLET  Klsol*S*SuHUfl/N  +  Elt2/Xl) 

2  02oLt T  COafli/S 

3  030LtT  L)5(M-H1)/S 

4  640LET  Aal-X1*CHT2  . 

5  050LtT  Hs2*  (LH*0*Xl-tU  ‘ 

6  ObOLtT  C=Elt2+Xl* Cl/L+l/N-0f2) 

7  b70LET  Ll=(-B-SQK(bt2-4*A*L))/(2*A) 

8  bSOGi)  Tu  70O 

9  09OLET  K15L150 

0  70wPkInT  "FOR  "IT  AttCld)  ;N;TAB10)  ?"  ST^UAKOS  WITH  »f 

1  7l0PKlNT  TAB  (0)  ;l;  TAb  (0)  }  "  SAMPLt  REA: i C AT ES  :  " 

2  72uPkInT  "  THE  DECISION  LIMIT  IS  «  J  T.fli'lB )  1  K 1 

3  730PkInT  "  THE  DETECTION  LIMIT  IS  "ffABCoJfLl 

4  74oGGTu  550 

5  75oPnInT  "REENTER  A  VALUE  >2  AS  PRdGkAm  BASED  UN  " / 

6  7t>*)PHlnT  "TWO  DEGREES  UF  FKEtDUM,*““  ‘ 

7  7  7oGuTu  18o  .  ,r 

8  78oPkInT  "kEENTEK  A  POSITIVE  VALi/E'' 

9  7  90GuTU  55k) 

0  BOOPrInT  "KEtNTEk  THE  L'ONF IQtNCE  LEVEL," 

1  ttloPKlNT  "b0,9o,s/0,9o  UR  99* 

2  82oReTuRn 

3  b30PKliNT  "  T  He  TOTAL  NUMBER  OF  X,Y  INPUT  VALUES  MUST  AT  LEAST "  J 

4  o40PkInT  "EQUAL  THE  NUMBcR  OF  CALIBRATION  VALUtS," 

5  o5wPk  InT  "  RtENTER  THE  TufAL  NuMbEr,* 

6  ttboGuTU  3lo 

7  8  7  o  S  TOP 

8  68ti  I  F  L*  U  ,  1]  s"E"THEN  o70 

9  d  9  o  I  F  Li  tl ,  13  a"R"buTU  iBo 

0  9  00 1 F  L$ll#lja"C"GljTU  1010 

1  yiOlK  LS 11  *  1) «"S"THEN  970 

2  92o I F  Aia"  "GOTO  1190 

3  93oGuSut3  1080 

4  9  4  o  L  E  T  N  =  X 

5  y5t'GuTu  590 

5  yboGuSua  i40o 
7  9  7  0  I  F  LS  11  ,  1J  «"L»ThEN  1190 

3  yaoGuSoo  lodo 
9  990LLT  L  =  X 
3  10OOGOTO  590 
t  lUlObOaUB  1080 
?  102OLET  Z1=X 
J  IOOOoOoUu  1230 
1  1 0 4 0 1 F  ZlaoGuTO  l'Oba 

3  103ObOTO  590 
3  lOoOoOaUB  oOo 
f  1 07Ol>OT  J  1  o30 
3  1 OdOuUSUo  llbO 

>  1 090  IF  X<0bOTO  H2o 

1  11001F  LtN ILil «2kETURN 

l  1 1 1 0 L t T  L0  =  X 
i  1U0LET  A  i  8  L  3  (3>3l 
i  1 IOOoOsUU  IloO 
1  1140etT  x»X*l0*1b 

3  1 IdOrEIUkN 

5  lloOLtl  XaiMUn(AS)-48 
t  1 1 7  0 1 F  X«-lbwETUKN 
T  1100IF  X > ■  OliOTO  1210 


llt^vlPWlNT  "UNRtCOGNlZEO  COMMAND*" 

i2oku>oru  5 a u 

1210IF  X>9 I HtN  1190 

1220KETUKN 

1230FOK  Z 8 1 Tu  a 

12401F  C  IZ3  "ZITHtN  1280 

1230NEXT  Z 

l2b0CtF  Z1«0 

12/OKtIUKN 

12o01F  '  Z3*ZTMEn  1420 
l2*0Ltr  Z18InT((Z+1)/2) 

13O0Ltr  Z3»Z 
l3lidL£T  Z2sZ*l-2*Zl 
1320kEA0  ftlrZl 
1 330 1 F  Z2»0TmEn  1370 
1340P0K  K»1TU  31 
1  330kE AD  «i»*Zl 
13o0nExT  K 
!3/0(-0r<  K s  1  TU  31 
13oOk£aO  t» Wm  tiO 
1 3  *  0  N  t  X  T  K 
1  4u0uET  K  a  in 
14101F  K>3lUtT  Ks31 
1420UE7  lawtK] 

i43opwiNr  "tme  value  of  t  is  ";tasci);t 

1440KE I UHN 
1  4  3  0  c.  N  u 
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GiO  T  =  *n<N»tti4  lb  UN  0*42707  USInG  00012  BI.KS  KB0<«ib 

1  lMptn  «  PNUuHAh  wTMFILSSV 

2  ddhct\  -  HNuGrtAH  TO  CnfcATt  TEMPORARY  FILE  OF 

3  34«trt  -  INHUMATION  FOk  USt  IN  WRlTIuG  OUT 

4  AOKt'l  -  ANALYSIS  FlLtS. 

5  4  5  r*  E  f  i  »  vEHSIOi*  uATA  2  /  9  /  7  0  « 

6  DVlKtfl  -  IS  TtMFIL*UA  IS  0  dLUCkS  LONi,. 

7  oduiri  l$l2tn 

8  70Lt  T  45  =  ''  •' 

9  OOF  IlES* 

?  yWASSluN  "  T  tttF  IL  !  0  A"  »  l  »  t 

1  lOioIr  t  * «)  T  h  t  N  13u 

2  lHoF«Ih,T  "  T  L  il  F  I L  J  0  A  NO  I  AVAlLAbLEl" 

3  l2iuS  I  OP 

4  lSoGuSud  ISO 

5  1 4uGu  T u  l9o 

6  1 SoFuR  I  s  1  f  0  1  Vi 

7  IOoPnInT  «*1  ;zs 

9  1 7onc:X  ]  I 

9  1  S.jkc.  Turin 

3  iy«jPNii<T  a  i  »  l  r  B  i  00  ,  o*j 

1  kUtit'oK  J  =  21 0  0 

2  21oP«1nT  ai,J 

3  22.0uuSuo  ISO 
1  23oNt*l  J 

5  *4oP*ir«T  rtiTtNu 
•>  2S^S1 OF 

1  20ePr*InT  **lJlciffcNu 
i  27^51UH 
v  2  8  ii  t  N  J 


JGM  T&v)0>')tf4  lb  UN  UK3<// 07  UoInG  WU3  12  BLKS  Ksidttlb 
>\  l»1Kdn  -  HHUGKAM  rtSlATSiSV 

■  2  20f\EO  -  PRUGhAn  TU  CkEaTl  nEw  STaTuS  FILE  UK  CHANGE  ALPHABET  1C 
ji  O0REH  -  PREFIX  OtSiGl'iA  jOK  F  OK  SAMPLE  FILE  NAMES  - 
>4  33KEN  -  VERSION  UATA  1/30/78. 
ib  441/ 1 H  A  [04]  ,i\|3  U>1 
)6  &4FILESSTA |Ub!uA 
j 7  OtfLtT  N 2 a 6 4 
>8  /OLE  f  Nl=b 
9  /SUET  E0aj 
P  oPLET  t=1YP(-l) 

1  9P1F  t  =  3TMcN  t)44 

2  144KtAu  «i;AUJ  ,At2]  ,A13J  ,At4J 

3  1 IOLeT  El =4 

4  IIoLeT  e^ab 

5  i2«<RtM  -  ReAu  KEST  OF  rlKSl  bLUCK 

6  l3&GuSuo  210 

7  14&Rc.M  -  nuw  Rt.Au  ixtw  a AdPlE  PREFIX 
8lS«/Guoud30  3 

9  ItouRtM  -  NuR  REhkITE  TnE  dLOLK,  FIRST  SETTING  bLOCN  POINTER 
(i  17wPnInT  #1/1 

1  1  ouGuSuu  dud 

2  1  9ti  1 1  C  1  a  1  |  rl t N 

3  24k, SI  OP 

4  21uRc<i  »  SUdROUTlNt  TU  RtAU  BALANCE  OF  dLOCK 

5  2  2  u  F  u  R  n s ti  1  T 0  N  2  6  T  c  P  4 

6  kduLET  EaTYPl-l) 

7  2  4  *•  i  r  E  a  3Gu  T  U  4/a 

3  4 a<j*L«U  »  1  /  M  [N]  ,  A  [N  +  ll  /  A  (N*21  /  A  [N  +  3l 

5  (IOuiilU  in 

2  7  o  R  t  f  o  R  .\ 

1  c/OLET  N4  8  .1—1 
>  2S«/Lt  1  El  =  l 
j  2v»iRcToRiN 

l  ODuKt.1  -  Sc/rfr<OuT  l  inl  10  RRlIE  OO  T  dLOLK, 
i  3luPuK  N  a  l  T  0  N  2  S 1  E  P  4 
)  32wPnIhT  *1 »  m  [N]  ,  A  [N  +  l J  ,  a  [N  +  21  f  A  IN  +  3J 
’  33u.nc.XT  N 
i1  1  34yRt  TuRR 

\  I  3 3 UR EM  -  SudKOoTlNE  TO  Input  NEW  SAMPLE  PREFIX, 

'  3  o  t.  P  R  I  in  T  "c^TER  SAMPLE.  NU,  PREFIX  "? 

^  37ml inPuT  Aj 

3 8 »/ L e  I  A  Hi  =f. UmCaS)*1uu 
39uleT  A  t2j  =1 
40.'jlr  E2wok£T  URN 

41upkInT  "cN]tR  next  sample  NUnticK:"; 

42u inPu  T  :4*ll#3l 

4  3ulr  NSt2«3Js"  "KEIUkn 

433leT  Ajsnsj  (1  /  11 

430LL.T  A  1 1  j  a  A  1 1 J  +  NtjM  l  A*)  »4o 

44v-LeT  As,) 

*  45uFUR  1=210  S 

\  4  0  *>L  E  f  AoanAlI,IJ 

4  7 1'  L  E  I  A«A*  lUtNUM  (AS  J-48 
4/3NEX1  I 
4/oLeT  A  121 8  A 
AdjjRE  Turn 

49*.«cm  -  read  p k t f  ix 

t>3uU0Sud  33 J 


.  .  ILIJIMJH 


39  aldPrtir.T  ttl.'All]  ,A12J 
00  a2u>*hlNT  «l»LNu 
oi  aJtSTue 
'.02  04jt"<0 


r 


B-32 


i G^2  Io  UN  C Xiz7b7  USING  0UU12  BlKS  1**10016 

‘1  IUkEh  ~  PHUGKAh  wUUTlMJSV 
2  2  '4  r<  £ fl  -  PKUGKAII  10  CNdATt  UCTlMt  FILfc. 

>3  UtfKtfi  “  U  C 1  I  fl  £  •  U  A  k  E  G  U 1  r<  L  S  5  RtCUKOS. 

4  3bh£fi  -  VdKSION  u  A  f  E  l/,W/b, 
b  44MUtSUtTlNt!UA 
,6  D4HUt<  1  =  1  Tu  b 
7  O0PK1N1  #i#l; I 
e  70pi< in  r  ui  }<t),  ;a,  u,«i,  0,0 
; 9  b  4  f  0 1\  j  s  1  T  0  0 

(•.  V  0  K  N  i  N 1  Kl,t',0,i«,U,0,(3fU,UfB 

1  1 4  *i  N  t  X  T  J 

2  1  1  fc?Pr<  I N  T 

3  1 2  w  N  t  x  1  1 

4  !3fPrilNT  */UENU 

5  l  4  0  E  N  U 


B-33 


UG33  T««)tuU*!4  IS  ON  CK3*7o7  USIhG  WwkJl2  buKS  K=4dlb 

tfj  10h£i1  -  PROGRAM  KGkSIZJSV 

*3?  2t’REM  -  RRlTc.-uU7  URuUP  SAMPLE  TABLE. 

w3  il^ncM  -  |HlS  VERSluN  ASSuMtS  THAT  THt  URUEK  OK 

34  4BkEiI  «  STAKGArtU  CUNlEnTkA  I  IONS  IN  AlC  PkUlRAMS  IS 

it) 5  3  G  is  2  M  m  *S»2i  ]/3^iO 

*6  b  G  n  E  >'  i  *•  V  fc  k  S 1 0  N  l)A1  E  2/tt/7o, 
i o7  ?*ir  ilEoGkSiZESDA 
36  uouli'l  A  [3,3] 

^9  93i\ci1  "  URDUP  SlZt 

10  IGuOA  rA  21 ,  ID , 1 1 , o,  1 

11  HwNtN  -  iJLANKS  i  ZERO  CuNC.  STANOaRU  I 

12  1 2vuhT  A  4,0*3, 2* 1 

13  13u^c.M  -  DUPLICATES. 

14  14h)aTm4,3,3»2*1 

15  IbuRtrt  -  STANOARuS 

16  1  6«'0mT  A  7, 0,3,4, 3 

17  17oRlm  -  SPIKES 

1 8  ItiwJATA  7, 4, 3 

19  190RL.‘l  -  SIAnOARUS 

20  2 <■' «-  u m T  A  /  ;  u  i  b  i  4  |  J 

c  1  2  1  v  Ki  R  1  s  l  1  ii  5 

£2  22*;Euh  J  *  l  f  U  3 

2  3  2 3 l R c.  A L  A  [  1  ,  J  } 

2  4  2  A.'i'JtX  1  J 

2  5  2  3  2.hc.aI  1 

cb  2  o  v b v n  J  =  1 1 U  5 

2  7  2  /  .i  K  U  *>  1  =  1  I  0  3 

2(<  2  o .  •  p  n  1 M  •»  1 »  a  [  i  ,  j  ] 

29  2VvNLXl  1 
OH  3 2  »".{.*]  J 
0  1  3  1  1 |  a i  ;  tNU 

0?  32*3 [up 

03  Jb  hi  Cil  0 


r 


B' 


|  o  3 y  0  4  I&  ON  CK32767  UOInO  HtoWl2  BLK6  K » (6 id X C> 

,1  1 0 K t ri  »  KRuGR  AM  wTTAbLlSV 

>2  23Ktrt  -  PRUGNAM  TU  wKirt.  HlLt.  UE  STUDENTS  "T" 

;3  23Mtii  -  hO«  MANUAL  EnTkY  VcKblUN  OK  nUuS AlU- VOS . 
>4  26*Eii  ■  version  uata  l/iy/za 
)5  3*r  lLt6  T  f  AoLt :  o  a 

lb  4wNtN  "  r"  MJ*  t>'U 

17  5  .iua|A3.,j/6,1. boo, 1.63b, 1.533, 1,4/6, 1,44 

JB  0  0  u  A  t  A  l ,  41b,  1  ,39/  ,  1 ,404,  1  ..5/2,  1  ,  3o3 ,  1 .336 
1 9  /  to  U  A  |  A  lliSil.O|l3,l,o4lil,i)3/,l»i}3o,l.'}3 

iy  bOuAiA  1.32b, 1.323,1.323,1.321,1.319,1.313 
,1  V  y  u  A  I h  1.310, 1.3l3,1.3l4,1.3l3, 1,311, 1.31,  1.262 

12  lut.KtM  »r«  Ki)R  9vjX 

13  1 1 0 u  A  I  A  0.014, 2.92, 2, 333, 2.132,2.315, 1,943 

t  4  1 2  u  U  A  f  A  l.oDo, l.ot>,l. 03  3, 1.312,1.795,1.702 

15  13, .DATA  1 ,/7l ,  1 ,701 , 1 .753,  1 .74o, 1 .74, l .704 

10  14,, 0  a  1  A  1.729,1. /2b, 1,721,1.717  .1.714,1. 711 

17  1 5oU AT  A  1 ,730 , 1 .730, 1.730, l ,7M1 , 1 .099,  1.097 , 1 .043 

lb  1  6 1’  h  t  it  "  |  "  F  U  R  9  o  X 

19  1  7 «,  J  «  T  a  12. 7  Ob, 4, 0o3, 3. 102,2.77b, 2. 371, 2. 44/ 

2y  lOuUAT  a  2. 003, 2. O^1  o»2. <02, 2«22b,2.201,2. 179 
<1  l  9 i)  4  7  a  2. 10,2.1^3,2. lol,2.12, 2, 11, 2.101 

22  23L  JATm  2,  «i9o, 2.  f  bo, 2.  »i  6, 2.374, 2, 0o9, 2, 0o4 

23  2 1 y U A ( A  2, Ub, 2. 330, 2, w02, 2. 0-0, 2. 343, 2. 042,  l,9o 
2  a  2  2  3  rl  c  3  "  f  "  K  u  R  9  o  X 

23  2  0»'0"»  I  A  31  .*21  ,  C  ,  9o  5 , 4,541 ,3,74  /  ,  3.303, 3. 143 

tf'  24..uhTa  2.9 9  0, 2. o90,2.o2l, 2.70a, 2.71o,2.0bl 
<7  c  3  C  0  A  7  A  <.o3,2.024,2.0«;2,2.3o3,2,5o7,2.532 
2  li  2  0 1 .  o’  A  T  A  2  ■  339 , 2 . 32o,  2  •  3lo,  2, 020, 2  •  3, 2. -92 
2  S  <  7  i,  i;«  I  *  2.— 65,2.4  79, 2. -7  0,<4d7, 2. 4u2, 2.437 ,2.320 
03  2 o . 4 „ M  »  |  "  ruN  * y  4 

01  2  9 «.  v  A  T  A  oO. 057, 9, 9<3, 3, o41, 4, 004,4.332,3.737 

0  2  o  d  „  U  a  t  A  d, -9, 3. 055, 3. 2  5, 0.10  9,3.13  0,3. *>55 
0  3  o  1  <  0 A  1  a  0,*jl2»2.v/7»2.v4/.2.9'21»2.o9d,2.b7b 
d  4  o^’UATm  2, 301, 2.045,2.031,2. 019,2.037,2.797 
33  33oUm7a  2. 737, 2. 7/9,2. 771 ,2,703,2.730,2.73,2.37b 
3b  34«.4t;M  -  EnO  OK  "T"  U A  j  A 
37  ob^UlM  i'I  1^21 

30  0  6  ..  K  U  R  1  =  1  l  U  2 

39  3  7  v:  K  u  K  JaHU  62 

4y  3oaKcAu  .a  C  J  J 

4  1  0  9  «  N  C  <  I  J 

42  -JoHkInT  a  1 ,  1  /  n  C 1 1 

43  4UFu*  J 3 2 T 0  62 

44  42yKwI.,T 

45  4 3  j Nt X  I  j 

*•6  4  4  u  N  t  A  7  i 

47  4  5dF  j;<  J  a  1  |  (j  31 

4b  400*<t  Ay  N  [J  J 
4$)  4/,’NtXI  J 
•JW  AUtiPrlhll  «rl,3/Ntll 

31  49.-KuK  J  =  2rO  31 

52  3  3  »>  r*  r  1  o.  T  Alf.ilJl 

.33  3  1  * ’ N t  X  1  J 
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}RuG35  T  o 3 U vj o 4  I<»  (JN  CR327&7  USING  OOU12  BlKS  K*O01O 

1001  1  0 H ti 1 1  -  PROGRAM  TAb90T;SV 

1002  2WKEU  -  PROGRAM  TU  MKlit  FiLt  OF  STUDENTS  "T" 

1003  25KEn  -  THIS  VtRSlUN  9o%  VALUES  ONLY. 

1064  30r  lLE5TTAb9it)SuA 

1005  100Kc.il  "T"  FuR  90% 

lOOfi  UwUATA  0.314,2.92,2.303,2.132,2.015, 1,9«3 

i»0u7  1 2oU A  f  a  1.690, 1.00, 1.033, 1.012, 1.795,1.702 

1000  1300ATA  1./71 , 1,701 , 1 .753, 1.740, 1.74, 1 ,734 

00o9  1 4itl)AT  A  1, 729, 1. 723, 1, 721, l./l/, 1.714,1.711 

4  010  lbttUATA  1, /WO, 1.700, 1.703, 1.701, 1.099,  1.697, 1.045 

0011  iooFuK  1  a  1 T 0  31 

4012  17oKlAu 

0013  ibopkInt  «i;n 

3014  19UNC.XT  { 

6015  20oPK1nT  4i?tNU 
3016  210 thu 


>G46  T*3U«U4  IS  UN  Cp327o7  USInG  MfcJVi  1 2  BL*S  K=w01b 
>\  1 0 H L i t  -  PRuGRAn  wMfcTnDiSV 

)2  2<5n£h  -  PRuGkAN  JU  SlT  UP  Y  HE  Op  rtETHuDS  INpOKhAT ION 

J3  2S*t>  -  VERSION  DATA  12/27/7/ 

)A  33uln  A*  11/5J  »bS  124}  ,G  IlOdJ  ,U  C2,5] 

)5  40P  Iut-oMt-TnOU  !  L«A 

■)6  D0KEH  -  ANALVTt.  AbbRLV  1 A  ( IONS  , 

,7  OOLtT  AS  U,45)  *"CL  F  NlT  Ph  SQ4  HARD  NA  OlHP  UCPD  " 

)8  / ui U fc.  r  AS [4o» 90} *"S  SUXluSUNE  UXAT  D1TH  ALUKNOuDKNtNU«N " 

)9  OOLtT  A3  (91 »  13b]  *  "  U  D  t  P4  LU  CuAcXaS  ASAtXhG  HbAtX" 

10  s»0|.Ll  as>  llbb,  175}  *«K  CA  CUNU  UMMP  DnP  PE  0P04  P4  " 

11  lduKctt  -  ANALYTES  P Oh  fcALH  TYPE  UF  ANALYSIS, 

12  llOLcT  d*  tl  ,  24}  ="CPB  CPS  CPU  300  BSNPSPEC" 

13  l2*Wt?1  -  CuMP  PIlOT  oIuL. 

14  13UUATA  6, 10, l 1 , 12, 10, 14, ID, 16, 17, 18, 19,23,21, 23, 2D, 27 

15  14ioKtn  -  CuMp  PIlOT  SOIL, 

16  15*0aTa  l,4,D,/,6»9,lO,U,l2,13,14,lD,16,17,l«,iy,20,2l,22,2O,24,2D 

17  16«j|JaT a  26, 27, 26, 2y, 00 

18  1  7  w  R  c  M  "  Cu«P  PILOT  hATEK, 

19  1  8  u  u  A  T  A  1, 2, o, 4, D,o,/,o, 9,10,11,12,10, 14, Id, 16, 17,16,19,20, 21 

20  1 w vj i J A T A  20,25,27,26,29,00 

21  2  * RtM  -  000 

22  210UATA  1, 2,0, 4, D,0, 7,6, 9 

23  22tKtM  -  6A5IN  p, 

24  2  3  uu  A  f  A  1, 0,4, 5, 0,  Of  9 ,  10,  14,  I5,l0,l7,  18,19,20,21, 31,02,00, 04, 3D 
2  5  2  4 1 K  L  M  -  A  K  R  A  Y  S  1  A  K  T  A  In  U  SlZt 

26  2Dt  i/aTm  1, 17,4*j,/1, 6  w,ib, 2/, 27, y,2l 

27  2  6  c  F  u  K  1  =  1  T  U  1  u  0 

26  2  7  2  k  c  a  u  L  1 1  ] 

29  2d2,Nc.Xl  i 
00  29*iir  UK  1*1  TO  2 
;0l  oOuPuR  J=lTO  5 
I  02  oURtAu  U  (1 ,  J} 

03  02o.Mc.XV  J 
!  04  3 3 /< N t  X  I  1 

1  05  3 4 v P k I f, T  *1;aS,8S 

,*  36  ODuPk  1 N T  6  1,2 
-  37  OOuFuR  I  s  1  TO  IlO 
s  06  47fcPr«I NT  *1,’L  tl) 
i  39  3 6 c M c X  I  l 

■  40  39uPuP‘ 1*110  2 

41  40iciFUK  J  *  l  TO  D 

42  4luPnIiiT  X  l  }  U  C  I  ,  J  1 

43  42WNLXI  J 

44  430'ICXT  1 

45  44oRc.n  -  SIAkT  NtP  KcCUKU. 

46  450Pk1nT  X 1 , 4 | 

i47  46ic‘NC>1  -  GL  ANALYStS 

|(18  4  7  <J  u  A  T  A  6,9, ID, 16, 17, lo, 19, 2io, 31, 32 

i  .49  46uKtM  -  AA  ANALYStS 

50  4  9  u  u a  T  n  /, 21, 2 2, 23, 24, 2D, 2u, 27, 26, 29, 33 

D 1  DOvKtM  -  TL  ANALYStS 

'52  DIuOaTa  l, 2, 3, 4, D, 6, 10, 11, 12, 13, 14,34,34,35 
,  ;D3  D2fcPUP  1*110  3D 
1D4  D3uKc.au  CUl 
1D5  D40NCAI  1 
)D6  D4 1 F  uK  1«IIU  3D 
,  1D7  D42PkI>iT  *UIL  m 
)D8  D43NcXl  1 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  Or  STANDARDS  1963- A 


J«59  bifcKfcrt  -  AKRAV  S7  AhT  AiW  SlZt 

iat>U  bbitUA  f  A  11,22,  l»,  U,M 

40b  1  a?(C.HcM  -  FiLt  HCCUKD  ItNbTnS. 

50b2  dtibUATA  S,0,$,2,<i,4,4,4,2,J 

did 03  SSiuLtT  KM 

4064  oMitfFyK  L  a  1  T 0  2 

3065  bl^Lf-T  K  =  K*2 

diate  t»2»FoK  1  =  170  2 

4067  bOtfFU*  J  =  1  TO  K 

4066  bAWKcAu  UU»J3 

aat>9  b 5 k; n t *  i  j 

4070  66oNtXT  l 

did/ l  b7  0  f  uK  1  =  110  2 

4072  oBtiFuK  JsjTO  K 

4073  bSuPKlNT 

4074  7didNcXT  si 

40/5  ?115<\cXf  1 

4076  72wNtxt  L 

4077  73uPrtlNT  #l;tNO 

4078  74k<fcrtl> 
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HOG-57  T  s  4  k  •  0  4  4  18  ON  CR32707  USInG  v) U irl  1  2  dL*S  RS0016 
001  l0Htn  -  PRUGkAM  ULCHKsSv 

002  l2htn  -  pRuGriAfi  10  RtAu  ANO  PRINT  SAMPLE  FILfcS. 
0to3  l&Kfcil  -  VtnSION  0A1A  2/4/7 d 
004  2  4  0 1 H  ZS C24H] ,AS  [9] ,h*  126] 

005  30LE1  j»l 

006  40MLES* 

007  50Lt1  r\4  =  0 

000  b  0  L  E  T  UtfaJsl 

009  /0pRlNT  "EMTtR  SAMPLE  NUMtitR"; 

010  601NPU1  ASH, 6] 

011  90AF  A  i  [2,o] =  "  "STOP 

412  100A5S1G*  AS ,  1 ,  E 

019  lltfll-  t«0GUTU  4-50 
014  120RCAO  *1 A0  ,  A1 ,  rlS 
015  l-5oPr%lNT  A0JA1;H* 

016  i Ay Ir  riSlll#l5]8"  "GOTO  270 

017  1 5 0 R ci M  •  USER  SAMPLE  6RANCH 

018  looxtAU  **1  / Z»  ti  *  20«] 

419  1 7eiLt.T  01=40 

020  1 6 0 L U  T  02=244 

421  1 9uGuTu  230 

022  2'00GuSU»  350 

423  2 1 0 1 r  cNU  »l?HtN  4bw 

024  2 2 0 1 1-  K4=1*EA0  #li£» 

025  230LtT'p0s0 

426  24t-i»-  A?  lt)0,u0  +  4]  s"Sj»S*"uU1  0  430 

427  2 5 w P r<  1  h T  Z3  [uw , 00  +  3*] 

028  26-jGuTu 

429  27-L.Kt-l  «u,L,5AnPl_t  HkAuCM, 

450  2S0Ltr  Ul=29 

051  2V <;L  C  T  02  =  240 

452  90 2 5 u 506  354 

033  3 1 wLc  r  p0»0  j 

434  320Rc.AU  4  1 ;  Z-#  [  1  tl  f'i  r  A 1 ,  A2*  A3 

095  3  3  4  P  K 1 1-<  T  ZS  tl  »  if]  ;aha2;a3 

436  34uGUro  30U 

037  350Ltr  OOSU0+D1 

036  3bioLtT  F0  =  o 

039  5 7 I r  u0«O2RlTURn 

040  36ic.Lc.T  04=1 

041  39uLcT  J  =  J+1 

042  400lr  CNU  HITMEN  454 

4<*3  4lwLEr  r4  =  l 

044  42«iRtTuRiN 

445  430pK Ih  T  A* ; "  NOT  AVAlLAeLt  1  " 

046  44k>GUTu  30 

047  454PkInT  "tNo  OK  SAMPLE." 

048  460PnIi>T 
44y  4/oPnlNr 
450  4 6 «> G u T U  50 

401  49K.EN0 


JG20  T  =  i 00004  IS  UN  Ck327o7  USING  00012  BLKS  R*001b 
)1  10REM  -  PRUGR AM  LRLFJSV 

)2  20kEM  -UTILITY  PHUGRAK  TU  SEARCH  CROSS-REFERENCE 
)3  30KEn  -  FOR  UStR  SAMPLE  NO.  ANU  REPORT  STATUS. 
j4  4»KtM  -  RE V 1 S I  UN  DATt  2/24// 0. 
j5  50UlM  MS  [2d]  »  Z*  T24u]  ,Bi<  [9]  ,  A  16)  #GS  [5]  ,  JS  [1] 

J6  Squirt  AS  1202J  »US  IbJ  »L*  124]  ,BL2T  »L[s4j  ,U$14J 
(7  70LET  L 5 a " L P u  UPS  LPW  360  USNFSPEC" 

)8  bULET  OS  1 1 # 9] a"  IUA» 

j9  90F1lESCrEH!OA#STaTuS»OA#* 

10  100Rt<T  -  ENTRY  FUR  MANUAL  SEARCH 

n  lluPKlNT  "tNTER  UStR  NU.S  "  I 

1 2  12uInPuT  UMlfO] 

13  l3iolF  0Sl2#6]s"  "GOTO  254 

.4  1 4(6LtT  J=1 

1 5  l5tflr  LNO  WlTHtN  230 

'6  lbuRc.AU  «»l|J»Ai 

17  1/uFuR  I  =  1  TO  24 1  ST tP  12 

LQ  iaul(-  AS  [1/  1  +  5]  =  U$l»QTQ  310 

'9  li)0lP  As  [  I  r  I  +  5  ]  a  "  +  *****" GOTO  230 

*0  200Nt.Xl  i 

.1  2 1 3 L & T  Jsj  +  l 

t2  220GUTU  150 

<3  23uPkInT  "uStR  NU.  NUT  IN  LRUSS  REFEkENCt  FlLEJ" 

14  24uGuTu  110 
:5  25aLtT  1  =  1 

:b  2buP*IinT  "ENTER  LAb.  NU."T 
'.7  2/tLtT  A  j [ 1 p  6]  =  " 

2 B u  1 N P U T  AS  [/  ,12] 

:9  2 y 0 1 F  AS  [0, 12] s"  "STUP 

>0  3W0boTu  32u 

>1  3  1  w  P  n I N  T  "uAo.  NU.  IS  " ? AS  1 1 +6 , I  + 1 1 ] 

>2  02uLt  T  10  =  1 

13  03uLtT  il^sAS  [I+6|  1+6] 

14  3 4 wL L T  a  IIJ  =NUM(U3>)  *10u 
>5  3b0LtT  U.»  =  AS  [1  +  7, 1+7] 

>6  3 6 0 L t T  B  U]  =6  [1]  +nuM10j>)-4o 

1 7  3 7 0 L L T  B  12] =0 

>8  3 B u F u R  K  =  «TU  11 

>9  3 9 0 L t T  Ds  =  aS  U+K, I+<] 

10  40«LcT  B  12] =  b  123  *  ito+NUM (US] -4b 

*1  4  1 0Nt X  I  K 

*2  420LcT  J=1 

>3  430lf  LNU  «2T  HEN  540 

>4  440Wt  Au  «2#J 

‘5  450  F  U  R  1  =  110  lb 

*6  4 6 0 R t A u  «2;A[1]  ,AC2]  ,A13J  ,A{4] 

.7  47  0 1 1-  i*i  AM)  JelUOTO  513 

18  4 b 0  1 F  A  [  U Ad  1 1] GuTu  510 

19  4 9 0 1 F  A  12]  «d  12]  GUTU  5iu 

>0  5001F  A  (3] >0GOTU  500 

>1  5 1 0 Nt X  I  1 

■  2  52uLtT  J  =  J*1 
>3  5 3 0 G U T U  43U 

•  4  54uPRlNT  "LAo,  NU.  NUT  IN  STATUS  F I L 1 1 " 

>5  55UGuTo  llw 

>6  5BuRlM  -  FuUnD  LAB  NU." 

>7  57uIF  A  [4J  >  luGUTU  Oita 
>8  5d0LcT  C=  [A  [4] -1 J  *4+1 


39  59oPkInT  "ANALYSIS  TYPt  "  / LS  1C,  C  +  31  I  "  NO!  YET  STARTED 

Off  OOOOUTu  llu 

oi  OikiLtT  Al  =  lNT  (A  [4l /lad) 

02  02*>LtT  A2  =  a  (4) -Al*ldu 

03  03oPkIp»T  A1J"  ANALYSLS  ST AKTtO  "} 

04  64dIF  A 2 > i.Uj 0 T 0  6/0 
05  o5i4PKlNT  "NONE  CDMPLtTtO," 

06  OboGuTU  000 

o 7  670PhlNT  TAdC0);A2;"  COMPLETED, " 

08  obwPKlfiT  "oO  YOU  WANT  STATUS  Oh  INDIVIDUAL  ANALYSES"; 
09  690 INPuT  Do Cl*4] 

/ (9  /OdlF  US  [1  /  U  ="Y"GUTU  /3o 

71  /  ldlF  0$  11 » 1) ="N"GUTU  ilo 

72  720PKINT  "PLEASE  AnShEk  Y(tS)  UR  N(0)J" 

73  730LtT  d»tl,0] sAsliW+6,IO+ill 

74  74o assign  osii,9i»s,t 

75  75oASSIGn  bS,3,t' 

76  76olf  CHOGUTU  H30 

77  77oLtT  Do=l 

78  /OyrtcAo  w3jA0»AljHS 

79  7 90 1 h  MSlll,lb]="  "GUTU  950 

of)  bOljRtrt  -  USEk  SAMPLE  BkAnCH 

ol  OloRLAu  «3 ; 2* [ 1 » 200J 
02  o2oLt T  DU  =  1 
03  o3oLtT  U 1 a40 
04  b40LET  U2=400 
o5  eSoGoTU  o9o 
ob  oooGUSud  lobto 
o7  o7 ti I h  t N u  W3THLN  U5o 
08  OOOlh  FwslKtAD  »o;ZS 
09  b  9  d  L  c.  1  Paso 

*n  yObl  r  l*  ID0,U0  +  31  =  "S*Si>"oUJO  110 
»1  yioLtT  Gs  =  lOiu  f  00  +  4) 

92  9  2  a  L  t  T  Ji  =  ZMDkJ  +  o7,Ua  +  o7) 

I  93  yOoGuSUo  no*} 

{  94  94aGuTU  Oblo 
I  95  95uRc.M  -u,L.  SAMPLE  BKAnCM, 

,  96  96oLtT  01*29 
i.  97  97idLtT  02=240 
s  9B  98yGuSUB  ld5a 
l  99  99dLtT  Fkj  =  0 

•00  IWOOfitAO  »0  ;  ZS  [1  ,  lol  ,  A  1  ,  A2,  Ao 
01  1010LEI  G$  =  Zitl,5) 

42  lOZOutT  JS  =  ZS  ll«» lOj 

43  lOOOGOSUd  1100 
o4  104UOUIU  900 

45  lOaOutT  U0=0o+01 

46  loooutl  F  0  =  0 

47  10/iUP  Ud<U2KETUKN 

48  lOoOLt T  00=1 
f  49  lO^OLtr  JSJ+1 

;  IPI  1 1  0 0 1 F  END  «oThtN  110 
11  1110LET  F  0  = 1 

1  12  UoOKfclUKN 

,  13  UOdpRlNf  0*;"  NUT  AVAILABLE!" 

;  14  i i 40uui o  no 
j  15  llOdrKINT 
I  16  lloOPRiNT 
i  17  1 1 7  OUO  T  0  110 

-  18  HbOPRINT  OS; 


!  Wjumum-  liwsppuwpp 
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19  U^ifllF  J»5Wd"P«lNT  "  NUT  SfANTtU. 

20  12 WUlF  J»s"  "PklNl  "  NUT  SIANTcD 

21  121U1F  J*5»1hpkInT  *  STAKTtO," 

22  12201F  Ja.s''2"PklNT  "  CUMPLtTtiD . « 

23  l20WKt [ UkN 

24  124UC.NU 


TUG22  T *00004  15  UN  Ck327o7  USING  0» 3012  0L*6  K«0016 
101  l«3NErt  -  PRUGnAm  ckcsumjsv 

302  20Uln  US  [24]  ,CS  [5)  ,E*  1*1  ,A*  £175] , 1  [2,5]  ,J  £100} 

303  50Ulrt  PS14J 

304  40UlM  U  £5]  ,L  15]  ,  D  tOU  ,XS  [61]  ,U*  £9]  ,M£5)  ,  T  C 1 3J  ,  Y$  £4d] 

305  50LET  YS 11,45] s"  Jan  Ftd  MmR  APH  MaYJUNEJULY  AUUSEPT  OCT  NuV  UtC" 
30b  U0UA]A  51, 2d, 31,00,31,50,31,01, 50,51,50,01,2b 

307  70PO*  1 s 1 TU  13 

JOB  U0k£aO  YII] 

309  90N£Xf  I 

310  1 0  0LL  T  Yl«TIrtC3) 

311  lltflP  UNTlYl/40to))*400aYlGOTO  130 

312  l2tfIF  IINT  IY1/100)) *10to=YlLET  Y£2l*Y[iOJ+l 

313  l3tfLtT  0»*"CUSUM  SOA" 

314  140LtT  Ei*"  I OA" 

315  1 5uF ILtS* 

316  16WA551GN  "Mt THOU ! U A " ,  1  ,  fc 

317  1 7  0 1 P  tsjGuTU  204 

318  18«jPkInT  "mETHUOSDa  NO  r  AVAlLAdLcl" 

319  1 9uS  T  Up 

320  20tfRLAu  «l;Ai,bS 

321  210NLAJ  wl, 2 

322  22 tfFuR  1*1 !U  I00 

323  23uRuAl)  t»l,’J[I] 

324  24ioNfcX  T  1 

325  25aFuR  1*1  TO  2 

326  26tfFuR  J=110  5 

327  27 mRt.Au  0  1 ;  I  [I,JJ 

328  2  d  0  N  c  X  I  J 

329  29toNcXr  1 

300  000PH I uT  " t n t e n  5 ample  Ttpl: 

301  OIwInPuT  F»£l,4] 

302  02o  Ip  P  $12,4JS"  "STOP 

303  33tfL.LT  J*  — 0 

304  OAwFuk  I s 1  I U  5 

355  55 tf Ll T  J*J  +  4 

306  Odtf I p  PSad* IJ , J+5] GOTO  4tf0 

307  57tf NtXf  1 

308  O 8 k) P K I H T  "ILLEGAL  5 AMPLE  TTPU" 

359  59tfGuTu  Oltf 

340  4v3tf  Ip  1  aoGuTU  65tf 

341  4 1  tfLcT  Ktf *1  12,11 

342  42UCALLCHRaC48»I,0» C0,0]J 

343  43tf A5SAGN  US,  1  ,£ 

144  4401 P  t  *  0  T  n  E  N  47tf 

345  43tfPNlwT  0»,"  NUT  AVAIlAoLLJ" 

346  46uGuTu  500 

347  470PKINT  "tNTEK  ANALYSIS  NAMcJ"! 

148  4dtflNPuT  CJ>(1,5] 

349  4901P  LS[2,5ja"  "GOTO  3tf0 

330  U0WLtT  L*I  11,13 

351  510LLT  12*112,11-1 

352  520FUK  J *0 1 0  12 

133  550LLT  K*  (J  CJ+U -1)  *0*1 

354  54tflP  LS*A« (i\,N  +  4) TritN  5oU 

355  550NLXI  J 

356  OOtfPh InT  "uNUEPlNty  ANALYSIS  FUR  THIS  SAHPLt  TYPfcl" 

357  570GUTU  470 

358  SdoLcT  J0*  l  J  +  1 } *2 


59  59itfFKl*<T  H«HlCh  PAkT«/ 

60  OMwlNPUT  i;» 

01  OitflP  GS  11/  1)  »"P"60TU  ObO 
02  o2wlF  OS  U  #  11  *"A"(iUTU  080 
o3  O30IF  o»(l»l)  »«t"liuTU  m7u 

o A  OAoPhInT  "tN[£K  P  FOk  PKtCISlONi  A  FUK  AUCurtACY • " 
.05  ■  o5oG(J  TU  590 
06  ObwLfcT  J  = Jo-1 
07  o7wGuTU  o9y 
08  OdMLfcT  J 3 J d 

09  59AKtAU  «l,J;Sl,Ll,L2#L3,Ml 
7fl  70wLtT  M0*l 

71  7  1 M I F  Ml<50GuTU  7 60 

72  72uLtT  M*>  =  Ml-57 

73  73m1F  ni>i*bOTO  760 

74  7  AMLtT  1  =  1 

75  75m6uTu  79a 

76  760FUK  I s l T 0  Ml 

77  77wrtcAu  a  1 j  D  1 1 3 

78  7«0NtXl  1 

79  79UFUK  K  =  1 1 0  61 
00  OMdLtT  D[K]=0 
oi  elMNtXT  * 

a2  o2idMtM  -  calculate  3  points  on  upplh  and  mio  l i nls  ■ 

63  o3k/FuK  I  =  liu  5 

04  04t,LtT  Lo»  U*i*>"l5j  *L3*Mo 

05  o50LtT  U  [IJ  =LULU 

06  obfcLbT  n  [I J  =l0 

07  o7iiLtT  L  UJ  =L2+Lb 

08  oObNtXI  1 

09  o9^LLT  Fl«0ia/Cul5J-LllJ) 

90  yidULtT  Lo  =  AGS(INHlC11*F;  +  .5J)+2 
*1  91k)FuP  1  =  110  5 

92  92k.Lt T  UlIJ  slNTCutl)  *Fl+.5J+LU 

93  93«LtT  L  UJ  =iNT  (L  U3  *Fl*.5j*U) 

94  94toLtT  M  UJ  alNT  (MUJ  *Fl  +  .5j+LU 
y5  95oMcX 1  1 

96  9  0  a  I F  nl  =  0aUTO  laMw 

97  97 aFuK  I  =  1 T 0  6l 

98  980LC.T  OlIJ=um*Fl 

99  99awtXT  1 

00  lAaUbUoUo  1270 
al  1M10FO*  1  =o l  TO  liTtP  -1 
02  1U2WF0K  KslTj  o 1 
M3  IMOMLtI  XSlKjo”  " 

04  1M4MNLAT  K 
M5  1050FUN  L= 1 Tu  5 
46  10O0Ltr  H*l*  lL«i) *15 
W7  10/MlP  UlLJ=lLtT  X*[N, *]="♦" 

W8  10O01F  M  ILJ  = ILtT  X* CN#Nj a"0M 
09  1M901F  LlLJaiLtT  X»  [N  ,  N]  a 

iM  iiojhext  L 

11  1 1 1 3 1 F  Ml=0GuTU  1150 

12  1120FUK  fialTU  Ml 

13  1  1 30  i  F  0  [Ml  =  ILtT  X*tN]a"«r" 

14  1140NEXT  M 

15  1150PP1NT  "1MIX*;"1« 

10  1 lOMNtXT  1 

17  1 1 7 0F  OH  1 ■ 1  To  Ol 

18  1 1 00Lt  T  XSlIja"-" 


B-44 


ui9  liyoNtxr  i 

3120  1204PP1NT  "I"JXS;MiM 

3121  1210KUK  1 3 1  TO  7 

3122  1220P*«1NT 

1123  1230NtxT  I 
1122  1 2 4 Ob U  I  0  590 

1125  l250c.N0 

1126  1260UE)  Misfrtl-l)**, 

1127  1270LKI  0 1  3  T 1 M  (2) 

3128  12oOM3k  1«1TU  il 

1129  l2y0lK  Ol<Y  11  +  11  GOTO  1320 

1130  1 3o0l£ I  *31 

313J  1310LET  0l30l-YtU 

1132  1320NEXT  I 

3133  1330MIX  IslTu  10 

1134  1340PW1N1 

1135  1350.<fcXT  I 

1136  1 3  b  O  L  E 1  K= 1K-1)*4  +  1 

1137  1 3  ?  0 1 F  G»tiflJsnp"i»OTO  1400 

1138  13B0KH1NT  "ACCURACY  "3 

1139  I3youul0  1410 

3140  H^oPKiNT  "Pk£CI5IUN 

1141  1410PK1N1  "CjSuM  FILE  l-OK  "lCStl»5j;«  IN 

3142  1420PKINI  "  "?  Y  »  U ,  K  +3]  ;  "  "  f  1)1  i  T  Ad  (o)  Y 1 

1143  HbOPKINT 

1144  l4aONtrUKN 

a  1 45  1 4ootNti 
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LOGIC  FLOWCHARTS  FOR  MAJOR  PROGRAMS 


APPENDIX  C 


LOGIC  FLOWCHARTS  FOR  MAJOR  PROGRAMS 

This  section  includes  logic  flowcharts  for  the  two  most  compli¬ 
cated  portions  of  the  system.  Flowcharts  are  included  for  these,  because 
the  logic  was  complicated  enough  that  flowcharts  were  required  for  program 
development,  and  will  probably  be  useful  for  further  debugging  and/or 
modification  in  laboratory  use.  The  other  programs  were  much  simpler,  or 
simply  developed  from  portions  of  these  programs,  that  flowcharts  were  not 
needed  for  their  development. 

SAMPLE  LOGIN  PROGRAMS 

Three  programs  are  in  this  set,  ENTERS,  ENTRS2,  and  FILWRT. 


I  INPUT  RESPONSE 


l  PRINt'CROUp" 

\ _ Sl«r 


1  PRINT-MAX  group\ 
\  SIZE  IS  2S<*  ) 

i 

1 

_ 1 

|  G  121  « 

G  121*1  J 

1  o  121  ' 

O  HI  •  1  1 

\  PRINT  "INPUT  \ 

\ SAMPLE  TYPE"  \ 

I  SEARCH  *•  I 
ARRAY 
IRK  INOEX  I 


PAINT  NON  ' 
l  EXISTENT  SAMfU 

V  tyre  * 


RIAO  RECORD  NO  I  I 
fROMOCTIME  OA  I 


f  SAVE  \  NO 
SAMPLE  )' 

V  tYRi;  / 


_l  «n 

s' 

G  121*0 

jILL< 

;t  , 

\ - 

I  Gf1|-2S  1 

I  CHAIN 
f  NTRS  P:  SV 


SRC  CIA  l  *  AMPLE 


i  RRINT  HIAOfR  \ 
\f  RROR4T  SAMPLE  TYRE  \ 
\  WRONG ’• 


T.OOTC  FT  .own  APT  rnt?  T?MTrt»c.CTF 


/'NEEd\  wo 

ASOLHEFTW— — I 

V'yUTol 


CHAIN 

ENTRS2.SV 


READ  SENTRIES 
FROM  GROUP 
SUE  TARLE  E 


Gniicni? 


_ I _  SO  *  NOl BLANKS 

RCAOSO.  OO.  SO  I  OO  *  NO  DUPLICATES 

— ' —  I  J  SO  =  NO.STANOARDS 


GmooH4? 

'^^TveT 


SET  VALUES 
INS  ARRAY 
COR  SAMPLES 
ANOOC 
(BLANKS.  OOPS. 
Y  STANDARDS) 


Off RNO TO 
PUT  RANDOM 
NUMSCRS  IN 
A  ARRAY 


SORT  TO  PUT 
SAMPLES  IN 
INCREASING 
ORDER  OE  THE 
RANDOM  NOS 


CHECK  COR 
LOCATIONS  Or 
DUPS  -MUST 
POUOW  USER 
SAMPLE 


INSERT  CONC 
IN  STANDARDS 
IN  INCREASING 
ORDER 


CHAIN 
[INI  AW  SV 


*  A 


DATA  ENTRY  PROGRAMS 


There  are  three  programs  in  this  set:  ENTERD,  ENTRD2,  and 

ENTRD4 . 


I  ENTRY' 


•I  AO  (HU 
HEADER 


(CHICK  TVPT 
or  sample 


rtuNiiNTml 

i  iab  lAwni  \ 

V  NUMILR" 


r  *  -  ,  1 

r‘ 

l  PRINT  "BTATUSl 
\  ERROR"  \ 

NT*NUM|N«| 

emi-mii 

Nt«IOXNUM(A*|«NI 

i 

/  \  NOT 

L  1 

NT  ",/  AVAILABLE 

_ 

CHECK  SAMPLE  j 
NUMBER 


.  HUNT  -UNKNOWN  ' 
l  fAMPlf  TYPE" 


PRINT’ME  AOER  \ 
ERROR-SAMPLE  ’ 
l  NOS  DIFFER' 


MS/ft.  t«j BLANK 


CHAIN 
ENTRD2  SV 


I  READ  #1.  All). 
I _ AITJ.7I 


PRINT  \ 
C  ACCURACY*] 


PRINT 

^••PRECISION- 


PRINT  M*  A 
l  NOT  AVAILABLE* 


PRINT  “ANOTMERX 
k  ANALYSIS  FOR  \ 
\  THIS  SAMPLE" 


/\r« 

i  >— to 


PRINT  "ANAIYSISX 
NOT  IN  Fin  ) 
i  TRY  AGAIN 


i  PRINT  "O  C 
VOUT-OF  CONTROL 


I  CHAIN  I 
ENTRD4FV  I 


LOGIC  FLOWCHART  FOR  ENTERD : SV 


ENTRY 


READ  IN 

READ  IN 

PRECISION 

ACCURACY 

CUSUM 

CUSUM 

FILE 

FI 

i! — 1 

RECALCULATE 

RECALCULATE 

SI 

SI 

UPDATE 

CUSUM 

FILE 


UPDATE 

CUSUM 

FILE 


PRINT  "PRECISION 
Q.C.  OUT-OF¬ 
CONTROL” 


CHAIN 

ENTRD4=SV 


PRINT  "ACCURACY 
Q.C.  OUT-OF 
CONTROL" 


LOGIC  FLOWCHART  FOR  ENTRD4 


